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1.0 miRQD'JCIM 


During the past several months ESPEE, INC. has been under contract 
to NASA's Space Sciences Laboratory to design and develop 
software capable of reading data from cassette tapes on a MEMODYNE 
model 3765-8BV cassette recorder and formatting and writing the 
data on a disk on the Space Sciences Lab's REEDA Hewlett Packard 
(HP) -1000 minicomputer system. In addition, software capability 
was to be designed, developed, and implemented which could read 
the aforementioned disk file and generate graphical displays or 
plots on three of REEDA 's HP 1000 graphics devices. These 
devices are the UP 2647A display terminal, the HP 9872B 4-color 
pen plotter, and the HP 2606A line printer. This document will 
describe the hardware and software aspects of the problem, define 
the use of the programs currently implemented on the REEDA HP 1000 
system, list assumptions and limitations of the software documented 
herein, and provide appendices showing program listings, sample 
plots, and sample output from some of the utility programs. The 
purpose of this document is to provide personnel of the Space 
Sciences Laboratory who will be using the software developed by 
ESPEE specific information on the utilization of the software. 
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2,0 mm . 


There are essentially three (3> distinct steps to generating a 
plot or sequence of plots from a MEMODYNE cassette tape. They are: 

(1) reading a tape on the MEMODYNE recorder and generating 
disk file(s) on the REEDA HP 1000 minicomputer, and 

(2) generating or modifying a disk resident file containing 
sensor transfer function or engineering unit conversion 
data, and 

(3) generating the plot or sequence of plots desired by 
interactively running the plot program. 

There are, of course, multiple steps to each one of these 3 primary 
steps and much more to be said later concerning each step. 

The important thing to remember, however, is the general "sense" 
of what the user is trying to accomplish so the detail of doing 
it does not become overwhelming. Since there are three basic 
steps to get from a cassette tape to a finished plot, there are, 
not surprisingly, three programs to use to accomplish that 
purpose . Program READM is the name of th<» program that reads 
the cassette tape on the MEMODYNE cassette recorder and generates 
disk files on the HP 1000 system. Program CFIGM is the name of 
the program which generates, modifies, and lists the user 
defined transfer functions or engineering unit conversion scale 
factors to be used in generating engineering unit plots. Program 
PLOTM is the program which reads the disk files generated by 
program READM and produces plots on the HP 264 7A display terminal, 
HP 9872B 4-color pen plotter, or HP 2608A line printer. Becoming 
familiar and proficient with these three programs is all a user 
needs to do in order to accomplish the task of converting cassette- 



based data to a final, hard copy plot. However, it was 
recognized early on in the development and check-out phase of 
this effort that plots of the data would not always be the most 
desirable end product, so a utility program was developed and 
implemented which gives the user the ability to read the same 
disk files generated by R£ADM and to list the data on the line 
printer in various formats. This program is named DUMPM and its 
use will be described later, but it will suffice here to say that 
DUMPM will read a disk file generated by READM and list the 
contents of that file as octal data (for debugging purposes 
should the need arise), as a statistical summary of the data 
(mean, variance, standard deviation, etc.), or as a block by 
block printout of the voltage for each channel recorded for each 
time point. In summary, then, there are four (A) programs 
implemented on the HP 1000 minicomputer system, and their names 
and functions are: 

READM - reads a cassette tape on the MEMODYNE recorder and 
generates a disk file on the HP 1000 disk for each 
data set sequence on that cassette. 

CF1GM - generates, modifies, and lists user- defined transfer 
function or engineering unit conversion scale factors 
used in producing engineering unit plots. 

PLOTM - reads disk files generated by program READM and 
produces plots on the HP 2647A display terminal, 

HP 9872B A-color pen plotter, or HP 2608A line printer. 



DUMPM - reads disk files generated by program READM and 

lists data as octal data, generates a statistical 
summary, or dumps the entire file, record by 
record, channel by channel, as voltage data on the 
line printer. 

These serve as introductory comments about the programs 
that have been implemented and checked out on the REEDA HP 1000 
minicomputer system. Detailed information follows in the 
Programs section. There is also a section on general assumptions 
and limitations related to the programs themselves. It is 
pointed out here, however, that a basic overriding assumption 
of the software development process conducted by ESPEE, INC. 
and the documentation describing this software is that the user 
is familiar enough with the HP 1000 system and the RTE-IVB 
operating system that neither the software nor the documentation 
will attempt to cover every possible RTE action or reaction 
or interaction with the implemented software. That is, the 
software has been integrated and checked out on the REEDA HP 
1000 minicomputer and works as advertised; however; it is 
possible (even probable) that an inexperienced user will error 
in using the software and will have to extract himself by using 
the appropriate RTE command or method. This document will not 
and cannot serve as an RTE guide. Similarly, a limitation of 
the software and documentation relates to future utilization of 
the software and documentation. The software runs currently on 
the REEDA HP 1000 system under RTE-IVB, revision 2013, and the 
software documentation relative to compiling and loading the 
programs is based on current REEDA hardware configuration 
constraints and revision 2013 software procedures. ESPEE, INC. 
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cannot guarantee "upward" compatibility with planned for REEDA 
hardware enhancements and future HP operating system revisions. 
At this time there are no known hardware or software revisions 
planned for the REEDA system which will cause obvious problems 
for the software; itfc just a matter r f making a point in this 
document that future hardware/ software changes in the REEDA 
system can affect the software described in the following 
sections . 
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3.o pmm 


3.1 READM 

The function of program READM is to read a cassette tape which 
has been inserted in a MEMODYNE 3765-8BV recorder and to 
generate a disk file on REEDA HP 1000 system disk logical 
unit 37 for each data set on the cassette tape. Program READM 
is structured to begin reading the cassette tape at the first 
data set on the tape and to continue reading until a change in 
sequence number on the cassette tape implies a change in data 
sets. At this point, READM will close the disk file generated 
for the previous data set and ask the user to set up to read 
the next data set. This process continues until all data sets 
on the cassette have been read and written to disk or until the 
user terminates the process by exiting program READM. A critical 
point to remember, then, is that program READM cannot locate a 
specific data set by sequence number on the cassette tape; that 
is, the user cannot ask REALM to go to the fifth data set on 
the tape or to locate the data set with sequence number 27, for 
example. Data sets are read by READM from the beginning of the 
tape to the end of the last data set on the tape. The mechanism 
for READM knowing that the last data set on the tape has been read 
is provided by the test engineer who generates the tapes. It 
has been agreed upon that the NASA hardware/ software responsible 
for generating the tapes will write a data set sequence number of 
zero(0) on the tape to signify end of data on the tape. 

Program READM is comprised of a main program, program READM, and 
three subroutines, RTAPE, CTAPE, and WAIT. Program listings for 
AREA DM, &WAIT, #RTAPE, and #CTAPE are given in Appendix A. The 
main program serves as the control program, calling subroutine 
RTAPE to read an 34-byte buffer from the MEMODYNE recorder, 
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program WAIT to pause a specified period of time, and subroutine 
CTAPE to control the motion and positioning of the tape. 

Subroutines RTAPE and CTAPE deserve special description because 
of their special nature. RTAPE is the program which cotmnunicates 
with the MEMODYNE recorder to read the data off the tape; CTAPE 
is the program which communicates with the recorder to issue 
control commands (load forward, backspace a record, rewind). 

Both are assembly language programs and both have a special 
status in the HP 1000 RTE environment - they are called 
"privileged” routines. The term "privileged" refers to the 
fact that RTAPE and CTAPE must refer to base page (page 0 ) 
addresses in order to communicate with the MEI10DYNE recorder. 

By RTE convention, the only programs allowed to do this are 
programs meeting very special RTE requirements and also having 
been included in a system generation as a module called a 
"driver", or, as in the implementation described here, simply 
turning the HP 1000 interrupt system off to address a base page 
address and turning it back on when base page addressing is 
complete. So RTAPE and CTAPE both turn the interrupt system 
off to commun'cate with the MEMODYNE recorder and turn it back 
on when thru. The advantage to this "privileged" approach is 
in time (drivers are extremely laborious to check out since each 
error correction or driver modification requires a new system 
generation) and expense (time is money!). The disadvantage of 
this approach is that it prevents other users from using the 
system while the interrupt system is disabled. Another dis- 
advantage is that FORTRAN programs using "privileged" subroutines 
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to acquire data and manipulate it (reformat, write to disk, etc.) 
often find strange "un-FORTRAN" -like things happening to the. 
data since FORTRAN programs (and FORTRAN programmers) are t 
used to the interrupt system being disabled during an I/O 
transfer. Program READM exhibited some of these timing or syn- 
chronization problems until subroutine WAIT was developed to 
give main program READM better timing control. Main program 
READM issues a call to subroutine WAIT to ensure that disk I/O 
is complete before issuing the next call to RTAPE to read 
another 84-byte record. A call of CALL WAIT (1,2) essentially 
tells RTE to suspend execution of program READM for one 
second at the point of call. Please see the listing of sub- 
routine WAIT in Appendix A for more detail as it is ccnmented 
and is basically self-explanatory. 

The procedure for running program READM follows in a step-by- 
step narrative. Some of these steps can occur in a different 
order, but it is reconxnended that the user cry and follow a 
pattern like the one outlined in order to minimize the chance 
of leaving out an important step. The steps to running READM, 
then, are: 

1. Prepare the MEMODYNE recorder for operation with the 
HP 1000. Disconnect the RS-232 connector from the 
back of the data phone and connect it to the MEMODYNE 
cassette recorder. Check and ensure (look at the rear 
of the recorder) that the recorder is set up for 300 
BAUD, 1 stop bit is selected, and that the control 
codes switch is in the select or up position. 

2. Power on cassette recorder . Ensure cassette tape is 
write protected and place in recorder, 
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3. Load removable user disk cartridge labeled CLOUDPHYS 
in HP 7900 disk drive. 

4. Log on the REEDA HP 1000. Strike any key on one of 
the display terminals not in use. RTE will respond 
with a request to log on: 

PLEASE LOG ON: 

User responds by typing in ANDERSON. CLOUDPHYS CR 
RTE responds with: 

PASSWORD: 

User responds by typing CR (carriage return) 

RTE will now log you on and put you in the File 
Manager environment. This means you now have the File 
Manager prompt, ' (colon). From here on, : is the 
File Manager prompt in examples. 

5. Disable the dial up terminal before you forget it! 
:CN,13,21B disables dial up terminal. 

6. Load program READM. 

This step can be accomplished in any one of several 
ways, depending on the users RTE experience and 
preference. The user can load READM by (1) issuing 
individual File Manager commands to re-compile (or 
assemble) all programs required by READM and issuing 
Loader commands to load READM, or (2) executing a 
transfer file named README created to load READM 
automatically, or (3) by dumping a soft key file named 
HELP! ! to LU 1 (if the user is logged on at the HP 
2647A terminal), and subsequently selecting the soft 
key for loading READM. 
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File Manager Commands to Load READM 
: RU , FTN4 , &READM : : 37 , 1 . 7.READM : : 37 
: RU , FTN4 , &WAIT : : 37,1,7.WAIT: :37 
: RU , A SMB , ^RTAPE : : 3 7 , 1 . 7.RTAPE : : 3 7 
: RU , ASMB , #CTAPE : : 3 7 , 1 , 7.CTAPE : : 37 
: RU , LOADR 

RE , 7.READM : : 37 
RE.7.WAIT: : 37 
RE , 7.RTAPE : :37 
RE , 7.CTAPE : : 37 
END 

EXECUTING A TRANSFER FILE (READM$) 70 LOAD READM 

:TR,READM$ File Manager will transfer control to a 
disk file READM$ containing all of the 
above commands and they will be executed 
one at a time. 

USING SOFT KEY FILE HELP. 1 : 


: DU, HELP! , 1 (works only on HP2647A terminal.) 

Press soft key labeled ’RELOAD READM* and an 
automatic :TR, READM$ will execute. 

7. Ensure cassette tape is at beginning of tape. BEOT 
light should be on. This is importart since READM 
will execute a load forward command to move the 
cassette tape off the leader to 1 inch past the BEOT 
hole. 
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8. Run program READM by typing :RU,READM<pR> 

<CR>means carriage return. Program READM will 
respond by identifying it r elf with 
READM- --MEMODYNE CASSETTE RECORDER DATA REDUCTION 
and will then prompt the user with 
ENTER DISK FILE NAME: 

The user must now enter a 1-6 character alphanumeric 
name with the first letter of the name being a letter 
of the alphabet. Once the name is entered, READM 
prompts the user with 

ENTER NUMBER OF 84 BYTE RECORDS TO READ: 

Since the user, in general, will not know the number 
of records (blocks) on tape for a given data set 
enter a large integer number. The largest integer 
number one ca» enter on the HP 1000 in response to 
this prompt is 32767. Remember, if you enter a 
number less than the actual number of records on tape 
for this data set, the next disk file generated by 
READM will contain part of the current data set. To 
be safe always enter a number much greater than what 
is reasonable for the current data set (with a max. 
being 32767). READM then responds with: 

ENTF.R <CR> TO BEGIN READING TAPE: 

Type carriage return when ready to read tape and READM 
will begin reading the tape. READM will read 84 byte 
records from the cassette tape until either the 
number of records input by the user is reached or 
until a change in data set sequence numbers is 
detected. As long as the data set sequence number is 
constant READM lets the user know everything is 
proceeding normally by printing: 
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BLOCK "N" READ. SEQUENCE NO. IS "NN". 
for every record read and written to disk. 

Once a data set sequence number change is detected, 
READM immediately stops reading the tape and prints 
the user a message 

NEXT SEQUENCE NO. ON THIS TAPE * "NN" 

READM then backspaces the cassette tape one record 
to position the data set to be read next back at 
block 1 of that data set. After cleaning up internally 
(closing disk file just generated) READM issues the 
next user prompt: 

ENTER DISK FILE NAME: 

and the process starts over again. The program is 
intended to be run until a sequence number of zero(0) 
is detected, meaning end of data on tape. However, 
if the user wishes for some reason to gracefully exit 
READM before end of data is encountered, it is done 
at this point by entering EX as the disk file name. 
Program READM will terminate upon reading EX as the 
file name. Program READM also terminates when a data 
set sequence number of ^ero (0) is encountered. 

9. Enable the dial up terminal when thru by entering: 

: CN, 1 J , 20B 

This is an important step. Be sure and execute it as 
failure to do so will prevent remote users from aces- 
sing the REEDA system via the dial up terminal and make 
users of READM basically unpopular. 

10. Disconnect the RS-232 connector from the rear of the 
MEMODYNE recorder and re-install at the back of the 
data phone. 
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Once program READM las been run and disk files have been written 
on disk (all disk files are stored on disk LU 37, the CLOUDPHYS 
removable disk) , programs CFIGM, PLOTM, or DUMPM can be invoked 
to do their things. Program READM ahs been successfully used 
to generate disk files TEST01 and TEST02 currently residing on 
Lti37 of the REEDA system by reading test cassette tapes generated 
by personnel of the Space Sciences Laboratory. 

3.2 CFIGM 

The function of program CFIGM is to allow the user to interactively 
create, modify, or list a disk resident file hereafter referred 
to as a "configuration file". This configuration file contains 
data used by the plotting or graphics program, PLOTM, which 
defines engineering unit scale factors for each sensor (channel) 
recorded for a given data set and other information that directs 
program PLOTM in the plotting and labeling of plots. The user 
has the option of creating/modifying/or listing i default con- 
figuration file (named "TABLEA") or entering a tile name of his 
own to create/modify/or list. CFIGM will interactively prompt 
the user in a self-explanatory manner to enter the required data 
to accomplish the user selected function. 

Program CFIGM is comprised of a main program, program CFIGM, and 
two subroutines. LABLE and CNFIG. The main program serves as a 
control program, prompting the user to enter the file name of the 
configuration file to be manipulated and simply calling subroutine 
CNFIG to interact with the user in file generation and maintenance 
activities. Subroutine LABLE allows "free field" input of hollerith 
or alphanumeric information and is used to decipher whether or not 
alphanumeric information input to CFIGM or CNFIG is actual hollerith 
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string data or carriage return data (signifying default or 
existing hollerith data). Subroutine CNFIG is the primary 
software module of program CNFIG and controls the user prompt/ 
input process, writes new or modified configuration data to 
disk, closes disk files, and lists the selected configuration 
file. A description of the use of program CFIGM, then, is really 
a description of subroutine CNFIG. Program listings of &CFIGM 
and &CNFIG are given in Appendix A. A sample configuration file 
is given in Appendix C. A default configuration file (TABLEA) has 
been generated on the REEDA HP 1000 svstem and resides on LU37 when 
the CLOUDPHYS disk pack is loaded in the HP 7900 removable disk 
drive. 

The procedure for running program CFIGM follows. The (colon) 

will serve as the File Manager prompt in the following instructions 
on running CFIGM and<CR> will denote a user required carriage 
return. 

1. Load user disk pack labeled CLOUDPHYS in the HP7900 
disk drive (LU37). 

2. Log on the REEDA HP1000. 

Strike any key on one of the display terminals not in 
use. RTE will respond with a request to log on: 

PLEASE LOG ON: 

user responds by typing <CR>. 

RTE will now log the user on and put the user in the 
File Manager environment. That is, a File Manager prompt, 
a (colon) will appear on the display terminal 
signifying RTE is ready to accept valid File Manager 
commands . 


- 14 - 



3. Load program CFIGM. 

As in the case of loading program READM, CFIGM can be 
loaded by the user many ways (depending on users individual 
RTE experience) but the following three ways are, in 
general, recommended. 

File Manager Commands to Load CFIGM 

: RU , FTN4 , &CFIGM : : 37 , 1 , 7.CFIGM: : 37 
: RU , FTN4 , &CNFIG : : 3 7 , 1 , 7.CNFIG : : 37 
: RU . LOADR 

RE.7XFIGM: : 37 
RE.7XNFIG: :37 
END 

Executing A Transfer File (CFIGM$) to Load CFIGM 
:TR,CFIGM$ File Manager will transfer control to a 
disk file CFIGM$ containing all of the 
above commands and they will be executed 
one at a time. 

Using Soft Key File HELP ?: 

: DU, HELP.' ! , 1 (works only on the HP2647A terminal) 

Press soft key labeled "RELOAD CFIGM" and an automatic 
:TR,CFIGM$ will execute. 

4. Run program CFIGM by typing 
: RU, CFIGM<CR > 

Program CFIGM will respond by typing 
ENTER FILENAME OF CONFIGURATION TABLE: 
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The user must now enter a 1-6 character alphanumeric 
name with the first letter being a letter of the 
alphabet. This filename is the disk file name of the 
configuration file the user wants to create, modify, 
or list. It can be an already existing disk file or 
a new file the user wants to generate and maintain. 

If the user types a<CR>in response to this prompt, the 
default configuration file name, TABLEA, is used. Once 
the user types in his response to this prompt, subroutine 
CNFIG is called and controls the rest of the user/program 
interaction. Subroutine CNFIG first welcomes the user 
to the file maintenance session with a friendly welcome. 
WELCOME TO YOUR BASIC CONFIGURATION PROGRAM.'.' 

The user is then prompted with: 

ENTER CONFIGURATION OPTION DESIRED 

1 GENERATE NEW CONFIGURATION FILE 

2 CHANGE AN ENTRY 

3 LIST CONFIGURATION FILE 

4 EXIT CONFIGURATION PROGRAM 

The user now enters a 1,2, 3, or 4 at the keyboard 
signifying which option he wishes to start this session 
with. A<CR> yields a number 3 option, or list option 
as the default case. if 1 is entered the program 
attempts to create a file name on disk LU37 with the 
file name entered previously by the user. If a disk 
file name already exists on LU37 by that exact name, 

CFIGM will ask the user: 

ARE YOU SURE YOU WANT TO DESTROY THE OLD CONFIGURATION 
FILE? 

and name the file by file name. 
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If the user answers that question by entering a Y<^CR> 
signifying "yes", the program will go ahead and lead the 
user through a series of data entry questions and 
generate a new disk file, essentially purging the 
previously existing disk file by that name. If the 
user enters a N<CR> signifying "no", the program will 
go back and prompt the user once again with the "enter 
configuration option" choices. If the answer is Y<CR>, 
or if the file name entered does not already 
exist on disk LU 37, or if the option chosen to begin 
with was 2 (CHANGE AN ENTRY) then program CFIGM will 
eventually prompt the user with: 

PREPARE TO ENTER SENSOR DATA 

TYPE <CR> WHEN READY TO PROCEED 

This gives the user an opportunity to gather his 

thoughts (and his data) before proceeding to the basic 

mechanism for entering data into the configuration file, 

a series of questions from CFIGM. When <CR> is entered. 

CFIGM prompts the user with: 

ENTER CHANNEL NO. ( <0 OR >31 TO EXIT): 

The user must now enter an integer number between 0 
and 31 (to continue the process) corresponding to a 
channel number of interest for a given data set. 

That is, the number entered in response to this prompt 
corresponds to the channel number decoded and plotted 
by program PLOTM. Once this section of code has been 
entered the only programmed exit is by entering a 
"faLse" channel number, an integer less than 0 or 
greater than 31. 
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After this entry, CFIGM asks multiple questions which 
result in data entries which are stored directly into the 
configuration file. These questions are asked repeat- 
edly for each channel selected by the user and are 
self-explanatory in nature. Instead of listing each 
question here, if suffices to list the data by "type" 
and the FORTRAN arrays the data are stored in order 
to define what the configuration file is all about. 

The data entry questions are concerned with prompting 
the user to input data for 1-32 channels (channels 
numbered channel 0-channel 31) which will define for 
each channel : 

a) , sensor name. 

b) . sensor linear gain- 

c) . sensor offset. 

d) . sensor engineering units. 

e) . sensor default y-axis minimum (engineering units). 

f ) . sensor default y-axis maximum (engineering units). 

g) . a comment field for this sensor. 

The sensor name for channel I is stored in FORTRAN 
array ITYPE (6,1+1) and is comprised of 1-12 
alphanumeric characters. The calculated y-value iu 
engineering units for channel I is given by: 

Y ■ gain * voltage + offset 
Thus, the linear gain which converts voltage for 
channel I to engineering units is stored in FORTRAN 
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array GAIN (1+1) where GAIN is a 32-element, floating 
point array. The offset to be added in the above 
equation to complete the engineering unit conversion 
for channel I is stored in FORTRAN array OFFSET (1+1), 
where OFFSET is a 32-element, floating point array. 

The engineering units for the sensor defined by 
channel I is stored in IUNITS (10,1+1) and is used for 
the y-axis label when engineering unit plots are 
selected in program PLOTM. This "units" label is 
comprised of 1-20 alphanumeric characters. 

FORTRAN array YMINI (1+1) contains the Y-axis default 
minimum y-value to be used by program PLOTM when 
plotting channel I in engineering units. Similarly, 
FORTRAN array YMAXI (1+1) contains the Y-axis default 
maximum Y-value to be used by program PLOTM when 
plotting channel I in engineering units. Both default 
values can be overriden in program PLOTM at execution 
time. 

Finally, a comment concerning the sensor recorded on 
Channel 1 can be included in the configuration file 
for inclusion on the generated plots. The comment for 
the sensor recorded in channel I is stored in FORTRAN 
array ICOMM (10,1+1) and can be comprised of 1-20 
alphanumeric characters. The default comment field for 
all channels is "blank". 

Data for these arrays, then, are entered for each 
channel selected by the user until the user has entered 
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all the data he desires and terminates the process 
by entering a channel number less than 0 or greater 
than 31. When the user does that, CFIGM then asks: 

DO YOU WANT TO WRITE TO THE CONFIGURATION FILE? 
(Y/[N1) : 

An answer of Y<tK> (signifying "yes") results in the 
previously input data being written to the disk file, 
the disk file closed and the message: 

CONFIGURATION PROCESS COMPLETE DISK FILE 

WRITTEN AND CLOSED 

where identifies the disk file being 

manipulated by CFIGM. T f the answer to this question 
is N<jCR]> (signifying "no"), the disk file is closed 
and subroutine CHF1G returns to CFIGM. Main program 
CFIGM signifies that the configuration process is 
finished by writing the message "CFIGM DONE!". 

Once program CFIGM has either generated a new 
configuration file or updated an exsisting one (say, 
file TABLEA, for example) program PLOTM can be run 
to generate plots on files generated by READM. The 
user will find CFIGM easy to use and very self-ex- 
planatory in its user/program question and answer 
sessions. The only way to learn it, however, is to 
use it. 


3 . 3 PLOTM 


Program PLOTM is the program all previous documentation has been 
leading up to. The sole function of program READM is to read 
data sets off cassette and generate disk files for PLOTM to plot; 
similarly, the sole function of program CFIGM is to generate and 
maintain disk resident configuration files in order for PLOTM 
to produce engineering unit plots. Program PLOTM reads disk 
files produced by READM, uses scale factor and plotting information 
from configuration files produced by CFIGM, and generates plots 
on the REEDA HP 1000 system's (1) HP 264 7A graphics terminal, 

(2) HP9872B 4-color pen plotter, and (3) HP 2608A line printer. 
PLOTM interactively allows the user to choose: 

1. Which HP plotting device he wishes to produce the plots 
on. 

2. Voltage or engineering unit plots. 

3. The start and end time of the plots. 

4. Minimum and maximum Y-axis values, or 

5. Auto scaling of the Y-axis. 

6. Axes and grid types for the plots. 

7. Starting channel number for the plots. 

8. Single or multiple channel plotting. 

Hard copy, document quality plots are generated on the HP 9872B 
4-color pen plotter and HP 2608A line printer. The REEDA HP 1000 
system's HP 264 7A graphics terminal is not configured with a 
hard copy device (such as an HP BIG matrix printer/plotter or 
Tektronix 4631 hard copy unit) so the purpose of utilizing PLOTM 
with the graphics terminal is to provide "quick look" graphical 
capability as opposed to another hard copy alternative. Extensive 
examples of the plotting capabilites of PLOTM are provided tinder 



Appendix D. Hard copy samples of all three plot types are 
included (2647A plots were produced on another government owned 
HP 1000 system where the graphics terminal is connected to a 
Tektronix 4631 hard copy unit). The disk files used for 
these examples are TEST01 and TEST02, two test case disk files 
generated by running READM on a test cassette generated by 
personnel of the Space Sciences Laboratory. 

Program PLOTM is comprised of a large main program, program PLOTM, 
and six subroutines, LABLE, BOUND, GRAF, HCOPY, NGRAF, and a 
BLOCK DATA subroutine which defines labeled common blocks. PLOTM 
also refers extensively to numerous HP 1000 graphics library 
subroutines. These routines will not be documented here and the 
reader/user is referred to the HP 1000 graphics documentation 
(see REEDA system manager for help in obtaining this documentation) 
and the listings of &PL0TM in Appendix A for information on 
these subroutine calls and their functions. The main program, 
PLOTM, is the primary module for program PLOTM and serves as a 
control program, input/output manager, does the decoding of the 
X-Y data (time-voltage) on the selected disk file, computes the 
statistical values of the X-Y data, and produces all resultant 
plots. Subroutine BOUND is called to determine the Y-axis bounds 
(YMIN and YMAX) for a given channel if the user specifies the 
Y-axis is to be autoscaled. Subroutine LABLE accomplishes the 
same function previously described in the document (see section 
3.2 on CFIGM), that is, it allows "free field" input of hollerith 
or alphanumeric strings entered by the user in response to prompts 
from PLOTM. Subroutines GRAF, HCOPY, and NGRAF are only called 
by PLOTM when HP 2b47A graphics terminal plotting is selected. 
Subroutine GRAF initializes the graphic mode on a HP 2647A and 
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turns off the alphanumeric display. Subroutine HCOPY is actually 
used on the REEDA system to read (input) a <CR> (carriage return) 
typed by the user to signify he's through viewing the current 
plot on the terminal and wishes to erase the screen and see the 
next plot. In practice, 2 lines of code are left in subroutine 
KCOPY but have been conmented out which, when the comment 
is removed, will allow the HP 26A7A to send a hard copy request 
to a RS 170 composite video hard copy device if connected. Sub- 
routine NGRAF terminates the graphic mode on a HP 2647A terminal 
and turns back on the alphanumeric display. The BLOCK DATA 
subroutine is an HP FORTRAN IV requirement which defines any 
and all FORTRAN labeled common blocks to be shared by routines of 
program PLOTM. Main program &PL0TM and the aforementioned sub- 
routines are listed in Appendix A. Program PLOTM is heavily 
commented and should be easy to follow for an experienced FORTRAN 
programmer. In addition to the subroutines PLOTM calls, there 
is one other subroutine pertinent to PLOTM which PLOTM does not 
call. Subroutine DLTBL oefines a "device linkage" table which is 
loaded with PLOTM at program load time and provides identification 
information for HP 1000 graphics programs referenced by PLOTM. 
Subroutine #DLTBL is also listed in Appendix A. 

The procedure for running program PLOTM follows. Tt is assumed 
that programs READM and CFIGM have been run and appropriate disk 
files have been generated and stored on the REEDA HP 1000 disk 
subsystem. The steps to running PLOTM, then, are: 

1. Load the user disk pack labeled CLOUDPHYS in the HP 7900 

disk drive (LU 37). 

2. Log on the REEDA HP 1000. 

Strike any key on one of the display terminals not in 
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use. RTE will respond with a request to log on: 

PLEASE LOG ON: 

User responds by typing in ANDERSON. CLOUDPHYS CR 
RTE responds with: 

PASSWORD: 

User responds by typing <CR>(carriage return) 

RTE will now log on and put the user in the File Manager 
environment, that is, a File Manager prompt, (colon) 

will prompt the user at the user terraina 1 . The user 
can now enter any legal file manager command. 

3. Load program PLOTM. 

As with the previously documented programs, READM and 
CFIGM, program PLOTM can be loaded in nu.ny ways but one 
of the following 3 loading approaches is reconsnended. 
File Manager Commands to Load PLOTM 
: RU , FTN4 , &PLOTM : : 37 . 1 .7.PL0TM: :37 
:RU,FTN4,c.WAIT: : 37, 1 ,7.WAIT: : 37 
: RU , LOADR 
OP, LB 

RE,%PLOTM: : 37 
RE.7.WAIT: ; 37 
RE , 7JJLTBL : ; 3 7 
SEA.7.GPS40 
END 

Exeucting a Transfer File (PLOTM$) to Load PLOTM 
: TR , PLOTM$ File Manager will transfer control to a 
disk file, PLOTM$, containing the above 
commands and they will be executed one at 
a time. 
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Using Soft Key File HELP:.' 

: DU, HELP.' ! , 1 Works only on the HP 2647A terminal. 

Press soft key labeled "RELOAD PLOTM" 
and an automatic :TR, PLOTM$ will 
execute. 

4. Run program PLOTM by typing 
: RU , PLOTM< CR> 

program PLOTM will begin execution by identifying 
itself by: 

PLOTM -HP 1000 GRAPHICS DATA REDUCTION PROGRAM 
and will then prompt the user with 
ENTER FILENAME OF DATA FILE TO PLOT: 

The user responds by entering a 1-6 character alphanumeric 
name with the first letter of the name being a letter 
of the alphabet. If the user enters a 2-character name, 
"EX" or "/E" in response to this prompt, PLOTM will 
terminate. If the user enters a disk file name, PLOTM 
will attempt to open a file by that name, read the 
first (header) record and writes the header information 
on the terminal and asks the user: 

IS THIS THE CORRECT FILE? ( [Y] /N) : 

The "(TYJ/N)" part of the above question tells the user 
the choices for answers to the question. Y implies 
"yes" and N implies "no". It is a convention of program 
PLOTM that questions with default answers will have those 
answers identified to the user by being included in 
brackets. Thus, [Y] above tells the user "yes" is the 
default answer in this case. "No" is signified as the 
answer by entering N CR . If the answer to this question 

is "no", program PLOTM terminates and writes the message: 
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PROGRAM PLOTM TERMINATED. CHECK FOR PROPER FILE NAME. 

If the answer is "yes", PLOTM next asks the user: 

SELECT PLOT TYPE. ([VO] , EN) : 

Where VO denotes voltage plot and is the default 
answer. EN denotes engineering unit plot and must be 
typed in as EN<£lC>. PLOTM then prompts the user to 
enter another disk file name: 

ENTER FILENAME FOR CONFIGURATION TABLE [TABLEA] : 
where [TABLEAU is the default configuration file name 
and is selected by entering<£l£>. If the user desires 
to use a different file than TABLEA, he must enter a 
1-6 character alphanumeric name with the first letter 
of the name being a letter of the alphabet. Once this 
question is answered, PLOTM prompts the user with: 

SELECT GRAPHICS LU. (Cl3 , 20, 28) : 

The users answer to this prompt will determine the HP 
plotting device. [1] is the default answer and signifies 
the HP 2647A graphics terminal. This answer is only 
valid if the terminal the user is logged on is the 
HP 2647A graphics terminal. If the user selects 1 as 
the graphics LU and is not logged on the 2647A terminal, 
PLOTM will eventually "hang up" and the user will have 
to abort PLOTM "ungracefully" by entering RTE break 
mode and aborting PLOTM with some form of OFF command. 

LU 20 will route the generated plots to the HP 9872B 
4-color pen plotter. The user is responsible for 
loading the paper in the plotter for the first and 
succeeding plots. LU 28 will route the generated plots 
to the HP 2608A line printer. Once this choice is 
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made and entered, PLOTM asks the user: 

ENTER START TIME FOR PLOT (ELAPSED SECONDS) : 

The user now enters the desired start time for the 
plot in elapsed seconds from the start time of the data 
set. A<C$> results in a default start time corresponding 
to the start time of the selected data set. Once the 
start time has been entered, PLOTM prompts the user 
to : 

ENTER STOP TIME FOR PLOT (ELAPSED SECONDS): 

Similarly, the user enters the desired stop time for 
the plot in elapsed seconds. This time the elapsed 
seconds are from the start time of the plot, not 
necessarily the start time of the data set. A<£P0> 
results in a default stop time corresponding to the 
stop time or final time of the data set. Once the 
stop time has been entered, a couple of questions 
concerning the Y-axis scale are put to the user. The 
first one is: 

AUTOSCALE Y-AXIS? (Y/[N]): 

The purpose of this option is to allow the user to 
choose between entering Y-axis minimum and maximum 
information (next question from PLOTM) or having PLOTM 
automatically search the Y data over the entire data 
set and determine the actual Y-minimum and Y-maximum 
values and use these values as Y-axis bounds when plot- 
ting. If the user wishes to autoscale for the current 
channel, enter a YCCR> in response to this prompt. The 
default answer is N for "no". If "yes" is the choice 
the following question from PLOTM will be skipped; if 
"no" is the answer the question, then, is: 
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ENTER MIN AND MAX FOR Y-AXIS VALUES: 

Since this question is only asked if the answer to 
the previous question about autoscaling is "no", it is 
assumed the user wants to use a standard Y-axis scale 
or enter a scale of interest for comparison to other 
plots. The user must enter two floating point numbers 
seperated by a comma as values to be "read" as YMIN, 

YMAX or enter a<£lp>. A<CR> (carriage return) will 
result in default YMIN and YMAX values being utilized. 

For voltage plots (option VO), values of -5.0 and +5.0 
are used as YMIN and YMAX. For engineering plots 
(option EN) , YMIN and YMAX default values are those 
contained in the configuration table for the current 
channel being plotted. Finally, if the user does 
enter his own values of YMIN and YMAX, they are entered 
on the same line seperated by a comma and terminated 
by a carriage return. Example: ENTER MIN AND MAX FOR 

Y-AXIS VALUES: -10. , 10. <££> 

Once YMIN and YMAX have been entered (or defaulted to), 
PLOTM prompts the user with: 

SELECT AXES AND GRID TYPE 

(AXES WITHOUT GRID- CO] , AXES WITH GRID- 1): 

The default answer is chosen by entering a<£R> and 
results in labeled axes with major and minor tick marks 
but without grid lines being drawn inside the axes. An 
entry of 1 results in the same labeled axes being plotted 
but grid lines are drawn vertically (X-axis) and hori- 
zontally (Y-axis) from the major tic marks to the 
opposite boundary of the plot frame. Now, PLOTM gets 
down to business with the next two questions or prompts. 
The next prompt is: 

ENTER CHANNEL NO. TO PLOT: 
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The user now decides which channel he wishes to plot 
individually or which channel he wishes to begin a 
series of plots with. A<£lC> signifies a default 
channel number of zero. Otherwise, the user must 
enter a legitimate channel number (between 0 and SI) 
and respond to th' next and final question before the 
plotting begins: 

PLOT ALL SUBSEQUENT CHANNELS WITHOUT OPERATOR INTER- 
VENTION? CCYl/N) : 

A <CCR> results in a default answer of ";es" and plots 
are generated for each channel starting with the channel 
entered previously. An answer of N, signifying "no" 
results in one plot being produced for the channel 
previously input. 

PLOTM now automatically performs the computational and logical 
steps required to generate plots for the chosen sequence of 
channels on the selected plotting device. If the HP 2647A graphics 
terminal was chosen, each plot drawn on the display terminal 
will remain there for user viewing until a<CR> is entered on 
the terminal by the user. A<CCR^>will result in the current 
plot being erased and the next channel plotted. If the 2608A 
line printer was chosen as the plotting device, the plots will 
be automatically generated and plotted on the 2608A line printer 
one channel at a time without operator intervention (see Section 
4.0 for system limitations concerning 2608 line printer plots). 

If the HP 9872B 4-color pen plotter was selected as the plotting 
device, much more operator interaction is required. For each plot 
generated on the HP 9872B plotter it is necessary for the user to 
load the paper on the plotter (consult REEDA system manager for 
9372B plotter documentation). When PLOTM is in the "consecutive 
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plot" mode, PLOTM completes a plot on the 9872B plotter, stores 
the pen in the proper holder, raises and moves the pen to the 
upper-right hand comer of the platten, and informs the user: 
CHANGE PAPER ON HP9872B PLOTTER. ENTER<CR>TO CONTINUE. 

Thus, the user has all the time he requires to remove the 
completed plot from the 98728 plotter and load the next paper for 
the next plot. Entering <CR> causes PLOTM to begin generating 
the next plot on the 9872B plotter. 

Once a single plot has been completed (if a single channel plot 
was chosen) or the final plot of a sequence of plots is complete, 
PLOTM asks the user: 

DO YOU WISH TO PLOT ANOTHER CHANNEL? ([Y]/N): 

If the answer is N for "no", PLOTM terminates. If the answer is 
Y for "yes" or defaults to "yes" (<CR^> ) , PLOTM asks: 

SAME DISK FILE? (CY]/N): 

If the answer is N for "no", PLOTM goes back and issues the first 
prompt in its user interaction series of prompts and questions 
(ENTER FILENAME OF DATA FILE TO PLOT:) and begins the process 
anew for the selected disk file. If the answer is Y for "yes" 
or defaults to "yes" «£R!> ) , PLOTM rewinds the current disk 
file, reads the header record, and asks the reader to select 
the plot option (VO or EN) and begins the previously described 
input/output operations at that point. When the user eventually 
answers N ("no") to the "plot another channel" question, PLOTM 
terminates and writes the message: 

PROGRAM PLOTM TERMINATED. HAVE A GOOD DAY! 

These steps, then, describe how to set up to run the graphics 
program, PLOTM, and how to interact with PLOTM' S input/output 
questions. On the remaining pages of this section are sample 
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hard copy examples of PLOTM questions and answers for typical 
runs on sample test case TESTP2. These samples, along with the 
step by step descriptions of this section, should provide the 
user with sufficient instruction on running PLOTM. The sample 
plots under separate cover are also helpful in outlining PLOTM' S 
capabilities and utility. As with any computer program, however, 
the only road to success is familiarity. A good approach to 
gaining experience with PLOTM is to run it on sample test files 
TEST01 and TESTj02 and compare results with those contained in 
the document under separate cover. 

The following few pages illustrate sample input to program PLOTM 
for several different plots generated using test file TEST02. 

These samples are intended to illustrate just a few of the options 
available to the user and how to enter them; for the purpose of 
this demonstration only LU 1 (2647A graphics terminal) is selected 
and an entire sequence of consecutive plots is not generated in 
order to conserve space in this document. The user is also 
reminded that for most questions or prompts a<CR> signifies 
default answers. Thus, in the examples, where no answer is 
entered for a PLOTM prompt the user can assume a<CR>was 
entered. 

If the user has set up to run PLOTM and enters the run command 
:RU,PLOTM<CR> 

program PLOTM will begin execution by clearing the splay 
screen at the user terminal and begin asking the user for input. 

A typical user response might look like: See Figure 1.) 

Here, the user has selected default answers to each question 
where defaults are possibie and the resultant plots for channels 
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1 and 2 are shown on the following pages. Note that this 
response would have generated plots for channels 1-30 but only 

2 plots are included here. (See Figure 2 and 3.) 

So the user in this case would have produced plots for channels 
1-30 which would have included the following characteristics: 

a. Voltage plots. 

b. Conf iguration TABLEA data not used but read in. 

c. 264 7 A plots. 

d. Default start of test, end of test start & stop times. 

e. Default Y-axis minimum and maximum (-5. 0,5.0). 

f. Default axes 6t grid type (no grid lines). 

g. No default for starting channel. Channel 1 selected. 

h. Default answer for consecutive channel plotting & as 
indicated, channels 1-30 will be plotted. 

(See Figure 3 . ) 

The next example illustrates a voltage plot again but points out 

3 different user entries. Here, the user selects a start time 
(600.0 elapsed seconds into the run) and a stop time (4200.0 
elapsed seconds after the user selected start time), selects 
autoscaling and informs PLOTM to plot channel 1 only. The 
entries look like: (See Figure 4.) 

The resultant plot looks like: (See Figure 5.) 

Notice the start time and stop time labeled on the plot and 
compare it with the test start and stop times of the first 
example plot. Also notice the autoscaled Y-axis of this plot. 
Since only this plot is produced by the previous user entries, 
PLOTM is now interested in what the user wants to do next and 
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the following PLOTM/user interaction shows the user asking 
that another plot be generated using the same disk file, but 
switching, to engineering unit plots (Eb), only plotting the first 
bO minutes of data (JOOO.O elapsed seconds), autoscaling, and 
selecting the "grid lines" grid format. This discourse is given 
by . (See Figure b . ) 

The resultant plot looks like- (See Figure 7.) 

Again, notice start and stop time labeled on plot and the 
"engineering unit" autoscalod data. Also notice that the comment 
field for all the examples in this section says "This is a 
2b08A Plot". This just goes to show you that a computer program 
does what it is told to, not what you want it to. The comment 
array of conf igurat ion table TABLEA was not updated prior to 
running these sample plots. 

The remaining two plots show channel 1 plotted in engineering 
units, one showing only 900.0 seconds of data plotted (notice 
change in X- ixis label), the other 1200.0 seconds of data. Also, 
the first shows the user entering his own Y-axis data (-40.0, 
40.0) and the second shows the user selecting default Y-axis data 
(which is read from conf igurat ion file TABLEA) . These examples 
are produced bv: (See Figures 8, 9, 10, and il.) 


Finally, the user enters <»n N ("no") when asked about plotting 
another channel and PLOTM terminates: (See Figure 12.) 
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FIGURE II 


DO YOU WISH TO PLOT ANOTHER CHANNEL* UYJ/N): 
PROGRAM PLOTI TERMINATED. HAVE A GOOD DAY! 



These examples of how to interact and enter data with PLOTl-l 
will give the user an idea of the flexibility he has at his 
disposal to preview the data at the HP 2647A graphics terminal 
and generate the plot or plots of a data set in a manner he wishes 
to see. A good way of learning to run PLOTM would be to run 
PLOTM on test file TEST02 on the REEDA HP 1000 and attempt to 
reproduce these examples. 

3.4 DUMPM 

Program DUMPM is a utility program used for listing disk files 
generated by program READM in a format selected by the user. The 
user selects the disk file to list (dump) and chooses one of 
three (3) formats: 

1. Octal format. 

2. Statistical format. 

3. Total or block by block dump. 

This utility is useful if plots produced by PLOTM are suspicious 
or in question for some reason and the user wishes to look at the 
data on disk in some type of "raw" form. The most elementary 
form to inspect the data in is to dump the data block by block 
in octal. It is perhaps not a convenient format since most of 
the data is 4-bit BCD data and not well represented in octal form 
for visual decoding but it does provide a user or programmer 
experienced with 16-bit word formats a chance to do some "quick 
look" visual debugging, if necessary. Most users will not use 
or require the use of this octal dump facility. The next most 
basic form to view the raw data in is a block by block dump of 
the disk file in converted "decimal" form, or a block by block 
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listing of voltage data for each channel listed by time, channel 
number, and voltage. This format is easier for the novice user 
to read but also voluminous in number of pages of hard copy 
output. Finally, a higher level dump or inspection of the 
data is a statistical summary in which the mean, variance, and 
standard deviation of the data is computed for each channel of 
a selected data file and is printed along with the minimum 
and maximum voltage values occuring in the data set along with 
the times they occurred. This is useful to get a quick "feel" 
for the statistical nature of the data without generating plots 
and can also be used to verify that the same statistical 
information is getting printed as title information on the plots. 

Program DUMPM is comprised of a main control program, program 
DUMPM, and these subroutines, ODUMP, SDUMP, and CDUMP. The 
main program, DUMPM, reads in the name of the disk file to dump, 
the number of records to read and dump, and calls the proper 
subroutine. Subroutine ODUMP lists the data contained in the 
selected disk file in octal format, subroutine SDUMP computes 
and dumps statistical data about the data in the disk file, and 
subroutine CDUMP performs the block by block, channel by channel 
voltage dump. 

The procedure for running program DUMPM follows: 

1. Load the user d 4 sk pack labeled CLOUDPHYS in the HP 
7900 disk drive (LU 37). 

2. Log on the RLEDA UP 1000. 

Strike any key on one of the display terminals not in 
use. RTE will respond with a request to log on: 

PLEASE LOG ON: 

User responds by typing in ANDERSON. CLOUDPHYS <CR> 

RTE responds with: 

PASSWORD: 


1 
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User responds by typing <CCR> (carriage return). RTE 
will now log on and put the user in the File Manager 
environment, that is, a File Manager prompt, (colon) 

will prompt the user at the user terminal. The user 
can now enter any legal file manager command. 

3. Load program DUMPM. 

The following three (3) methods can be utilized to 
load program DUMPM. The user need select only one. 

File Manager Commands to Load DUMPM 
: RU , FTN4 , &DUMPM : : 3 7 , 1 , 7.DUMPM : : 3 7 
: RU , LOADR 

RE , %DUMPM : : 37 
END 

Exe c uting a Transfer File (DUMP$) to Load DUMPM 
: TR , DUbii- 11 $ File Manager will transfer control to a 
desk ;ile, DIJMPM$, containing the above 
commands and they will be executed one at 
a time. 

Using Soft Key rile HELP. I 

: DU, HELP.'! Works only on the HP 264 7A terminal. 

Press soft key labeled "RELOAD DUMPM" 
and an automatic :TR, DUMPM will execute. 

4. Run program DUMPM by typing 
; RU, DUMPM <CK> 

Program DUMPM will begin execution by clearing the 
terminal display screen and will prompt the user with: 
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ENTER FILENAME OF FILE TO DUMP: 


The user responds by entering a 1-6 character alphanum- 
eric name with the first letter of the name being a let- 
ter of the alphabet. Once done, DUMPM goes on to request: 

ENTER NO. OF RECORDS TO DUMP: 

User responds by entering an integer number greater 
than zero and less than 32767. DUMPM will list exactly 
the number of records input at this point unless an 
end of file on disk is reached. Next, DUMPM asks the 
user to select the format of the dump by requesting: 

SELECT TYPE DUMP (1-OCTAL, C2-STATISTICS1 , 3-TOTAL) : 

An answer of<er> (default) results in a 
statistical dump being performed by subroutine SDUMP. 

A user entry of 1 cr yields an octal dump 
by subroutine ODUMP, and, finally, a user 
entry of 3 <(cr)> generates a block by block, channel 
by channel voltage Jump bv subroutine CDUMP. 

All of these options assume LU 6 is the system line printer and 
all listings are routed to I,U 6. NOTE: (Use 1 page (6 blocks) 

of octal dump, 1 page stat sunnar, and 3 pages (6 blocks) of 

voltage dump or Appendix E.) 
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4.0 ASSUriPTIONS AND LIMITATIONS 


The folowing is a list of assumptions and/or limitations made 
by ESPEE in the design and development of the previously 
described software or which occurred in the implementation of 
the software on the KEEDA HP 1000 minicomputer. Most of these 
are points already mentioned previously in this document; this 
section provides an easy reference to the basic software limita- 
tions in one place. 

ASSUMPTIONS 

(1) The reader/user is familiar with the REEDA HP 1000 mini- 
computer and the RTE-IVB operating system. This experience 
coupled with the instructions contained in this document on 
logging on the REEDA HP 1000 system, loading the ESPEE 
implemented software, and running the software are sufficient 
for the reader/user to successfully utilize the ESPEE soft- 
ware. 

(2) The MEMODYNE cassette recorder software (program REA DM, 
subroutines RTAPE and CTAPE) has been made to work utilizing 
the current REEDA HP 1000 hardware, specifically, the 
MEMODYNE recorder is interfaced to the HP 1000 with an HP 
12531D printed circuit assembly (PCA) interface card and 

is jumpered to operate at 300 BAUD. Furthermore, this 
interface card and cable are primarily utilized by a dial 
up terminal or modem and the operating instructions 
contained in this document for program READM assume a 
session LU of 13 for the; dial up terminal. It is assumed 
the hardware (125310 interface at 300 BAUD) and the RTE 
software (LU assignment l'or dial up terminal) will not 
change. If it does, program READM will be affected and may 
not run. 
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(J) All source programs and files have been implemented on the 
HP 1000 and stored on the user disk pack labeled CLOUDPHYS. 
Furthermore, all the software written expects disk files 
generated or read to be resident on system LU 37 and the 
user pack CLOUDPHYS to be loaded in LU 37. 

(4) Program READM assumes the user places the cassette in the 
recorder at the beginning of tape (B£0T light should be on). 

If not, user can count on erronerous results. Program 
READM assumes the user will read the data one data set at 

a time, creating a disk file on LU 37 for each data set. 

READM, finally, assumes that a data set sequence number 
of zero(0) will be present on the tape signifying end of 
data. 

(5) Program PLOTM assumes t^e existence and maintenance of an 
HP 1000 graphics library named "4GPS40 on the REEDA HP 1000 
system. PLOTM uses its own device linkage table at program 
load time (7JJLTBL on LU 37) but an underlying assumption 

is that the REEDA HP 1000 RTE system will always have the 
device subroutines and the device command tables loaded 
(as entries in 7.GPS40) for the plotting devices PLOTM uses; 

HP 2647A graphics terminal - DVG01 & DCT01 
HP 9872B 4-color pen plotter - DVG02 & DCT02 
HP 260oA line printer - DVG04 u DCT04 

The device linkage I!) numbers for the above devices are 
defined in DLTBL to be: 1 for the HP 2647A graphics terminal, 

2 for the HP 9872B 4-color non plotter, and 3 for the HP 
2b08A line printer. 

(b) Program DUMPM expects system line printer to be session LU 

6 . 
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(7) Program PLOT?! expects (assume'-') necessary free disk -pace 
on the first disk Lli mount i d in the system cartridge List 
(see : CL command in RTL documentation) when LP 2&08A 

plots are being produced. Each plot produced for the 
HR 2608A line printer results in approximately 360 blocks 
of data being written to a disk file by IIP 1000 graphics 
software. The user has no "programmatic" control over 
which disk LU this data is written to (always routed to 
first disk cartridge in cartridge list) so the user must 
be aware of how much free space ( tracks , blocks , etc . ) is on 
such a disk cartridge. If PLOTM runs out of disk space 
while running it docs not gracefully or ungracefully abort; 
it will "hang up" and essentially run forever until the 
user recogni..-. something i .• wrong and aborts PLOTM manually. 
Consult RKimJA svst < m management or IIP RTF. documentation 
for classi f icat ion on this point. 

LIMITATIO NS 

(1) The MEMO DYNE cassette recorder software (program READM wi.h 
subroutines KTAl’K and CTAPl.) runs in the "pr tvi l edged" 
mode on t lie RLKDA HP LOGO system. The interrupt system is 
alternately turned off and on in order to control and read 
the recorder and this destroys or invalidates RTF as a 
multi-user system while running prog-ram READM. At 300 
BAUD, it takes approximately 1 hou*. to read 800 8'»-byte 
blocks on the MEMODYNE recorder. 

(2) The cassette recorder software (program READM) cannot locate 
a specific data set on the cassette tape or be positioned 
under software control either forward or backward a specific 
number of blocks. 
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(3) Since program READM expects a data set sequence number of 
zero (0) on each cassette tape (signifying end of data), 
failure to generate that data at data acquistion time will 
result in the cassette tape "running away" when end of data 
is reached and the user must recognize it and manually halt 
the tape motion or the tape will run off the end of the 
reel . 

(4) Program PLOTM requires a disk LU mounted first in the REEDA 

HP 1000 cartridge list with 200 free tracks if all 32 channels 
of data are to be plotted on the HP 2608A line printer. 

(5) Program PLOTM is currently written to use pens 1 and 3 on 
the HP 9872B 4-color pen plotter. Failure to ensure pens 
are in those pen holders will result in erroneous plots. 

Pen 1 is used to draw the axes, label the axes, and write 
plot title information; pen 3 is used to draw the X-Y points. 

The user may use whatever color pen in holders 1 and 3 he wishes. 

(6) HP 2647A graphics terminal plots can only be selected if 
logged on at that terminal. Attempts to choose that option 
at HP 2640 or other terminals will result in program PLOTM 
hanging up again. 

(7) User help file HELP.'.' can only be run at the HP 2647A graphics 
terminal . 

(3) If LU 6 (line printer) is down or of c -line, program DUMPM 
will not run since it always attempts to list data on LU 6. 
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5.o msznuMkwm 


The cassette tapes to be read on the MEMODYNE recorder and 
written to disk on the REEDA HP 1000 minicomputer consist of 
data blocks up to 86 bytes in length. These data are considered 
as 8-bit bytes with no parity. The format of each block (up to 
86 bytes) is as follows: 


BYTE 

1 

2 

bct 

digits 

representing 

data set 

sequence number 

BYTE 

2 

2 

BCD 

digits 

representing day of month. 

BYTE 

3 

2 

BCD 

digits 

representing month of 

year. 

BYTE 

4 

2 

BCD 

digits 

year (last 2 

digits) 


BYTE 

5 

2 

BCD 

digits 

representing 

hours \ 

data 

BYTE 

6 

2 

BCD digits 

representing 

minutes 

> acquisition 

BYTE 

7 

2 

BCD 

digits 

represent ing 

seconds ' 

time 

BYTE 

8 

2 

BCD 

zeroes 





Bytes 9 through 84 (possibly only byte 80) contain a BCD repre- 
sentation for the voltage sampled in the recorded channel along 
with the channel number. This data is contained along with the 
channel number. This data is contained in four (4) bytes for each 
channel recorded. Bytes 85 and 86 (possibly 81-84 as well) will 
always be BCD zeroes. 

The 4 bytes of sensor data for each recorded channel are encoded 
on the cassette tape as follows: 
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Byte 9,13,17, ... ,81 Byte 10,14.18 82 Byte 11 


These 6 bits always 0. 


Over-range bit; equals +1 if voltage +3.9999 volts, 
Sign bit; 0-voltage is negative, 1-vortage is 
positive. 


L.S. Digit; BIT 3 is Ms BIT. 


3rd Digit; Bit 7 is MsBIT. 


2nd Digit; bit 3 is MsBIT. 


Most significant digit (full digit of voltage) 
Bit 7 is MsBIT. 


Channel number; bit 0 is LsBIT. 


Most significant digit of voltage. Can be 0,1 ,2, or 3. 
Bit 7 is MsBIT. (Voltage decimal point after this 
digit). 



If there are more channels of data than will fit in one block, 
the data will be continued in two consecutive blocks. The 
second block of a two block set will contain the same sequence 
number, date, and time as the first block. The second block will 
be zero filled beyond the last channel recorded. For one block 
sets, the block will be zero filled beyond the last channel 
recorded to the end of the block. 


Programs PLOTM and DUMPM decode both the header bytes and the 
sensor data bytes in order to generate their respective plots 
and/or listings. The following statements illustra the 
"decoding" of the header and sensor data blocks in FORTRAN (as 
accomplished in PLOTM and DUMPM). The 4 byte sensor data are 
contained in cassette "encoded" format in words IW0RD1 , IW0RD2 , 
IW0RD3, and IW0RD4, respectively. The seven (7) header bytes 
are contained in FORTRAN array IBUF(l) through IBUF(7), respect- 
ively. The data in FORTRAN by: 

NSEQ - 10*IAUD(IBUF(1),360B)/16+IAND(IBUF(1),17B) 

IDAY - 10*IAND(IBUF(2) ,360B)/16+IAND(IBUF<2) ,17B) 

IMON - 10*IAND(IBUF(3) ,360B)/16+IAND(IBUF(3) ,17B) 

I YEAR * 10*IAND(IBUF (4) , 360B)/16+IAND(IBUF(4) , 17B) 

IHR - 10*IAND(IBUF(5) , 360B)/16+IAND(IBUF15) ,17B) 

IMIN - 10*IAND(IBUF(6) ,360B/16+IAND(IBUF(6) ,17B) 

I SEC - 10*IAND(IBUF(7) , 360B)/16+IAND(IBUF(7) , 17B) 
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and : 


ICN - IAND (IWORDl , 77B) (channel number) 

VOLTS - FLOAT (IAND (IWORDl , 300B) / 64)+ 

FLOAT (IAND (IWORD2 , 360B) /16)*0. 1 + 
FLOAT ( IAND ( IWORD2 , 1 7 B) *0 . 01 + 

FLOAT (IAND (IWORD3.360B)/ 16) *0.001+ 
FLOAT(IAND(IWORD3.17B)*0.0001 

ISIGN * IAND (IWORD4.200B)/ 128 

RANGE - IAND (IWORD4, 100B)/ 128 

VOLTS * ISIGN*VOLTS 

IF(RANGE .EQ. 1) VOLTS = ISIGN *(3.9999) 
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APPENDIX A 
PROGRAM LISTINGS 

&READM 

&WAIT 

if RTAPE 

#CTAPE 

&CFIGM 

6.CNFIG 

&PLOTM 

#DLTBL 

&DUMPH 
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8.READM T=00003 IS ON CRH0015 USING 00046 BLKS R*5?13 


0001 FTN4 , L 

0002 

0003 PROGRAM REAOM 

0 0 04 C 

0005 C 

00 06 C########*####IMHHI####################################*######*#####*####### 

000? C • 

0008 C THIS PROGRAM READS A CASSETTE TAPE ON A MEMODYNE MODEL 3765-9BV * 

0009 C CASSETTE RECORDER AND WRITES A TYPE 3 < VARIABLE LENGTH RECORD) * 

0010 C FILE TO DISK. THE PROGRAM USES PRIVILEOGED SUBROUTINE RTAPE TO # 

0011 C READ THE TmPE . THE NUMBER OF CHARACTERS TO READ PER RECORD IS * 

0012 C CONTROLLED BY VARIABLE NCHR. THE NUMBER OF RECORDS TO READ BEFORE t 

0013 C TERMINATING IS CONTROLLED BY VARIABLE NREC . SINCE THE USER HAS NO # 

0014 C FIRM KNOWLEDGE OF THE EXACT NUMBER OF RECORDS ON TAPE FOR A GIVEN * 

0013 C DATA SET IT IS RECOMMENDED THAT A LARGE INTEGER NUMBER <LESS THAN t 

0016 C 32767 ) BE INPUT. READM WILL TERMINATE READING THE DATA SET WHEN A • 

0017 C CHANCE IN SEQUENCE NUMBERS OCCUR (IF NREC HAS NOT BEEN REACHED). • 

0018 C PRIVILEOGED SUBROUTINE CTAPE IS CALLED TO SPACE THE CASSETE TAPE # 

0019 C FORWARD OFF THE BFOT HOLE AND TO BACK SPACE ONE RECORD AFTER A i 

0020 C CHANCE IN SEOUENi'F NUMBER OCCURS . SUBROUTINE WAIT IS UTILIZED TO • 

0021 C ALLOW THE DISK WRITE OPERATION TO COMPLETE BEFORE RTAPE TURNS THE * 

0022 C INTERRUPT SYSTEM OFF TO READ THE NEXT RECORD OF DATA. FUNNY THINGS # 

0023 C HAPPEN IF WAIT IS NOT USED FOR THIS PURPOSE. * 

0024 C • 

0025 C NCHR IS THE NEGATIVE INTEGER VALUE OF THE NUMBER OF 8-BIT CHARACTERS# 

0026 C TO BE READ. # 

0027 C IBUF IS THt ARRAY INTO WHICH THE DATA IS READ. # 

0028 C JBUF IS THE ARRAY UHIC W CONTAINS THE MERGED OR FINAL FORM OF THE # 

0029 C DATA. * 

0030 C * 

0031 C • 

0032 C DEVELOPED BY. ESFEE INC. • 

0033 C EXECUTIVE PLAZA • 

0034 C SUITE 305 # 

0035 C 205/83r-8**.A5 

0036 C 1 

0037 C * 


0038 C 

0039 C 

0040 C 

0041 

0042 

0043 

0044 
0043 C 

0046 C 

0047 C 

0048 

0049 

0050 

0051 

0052 C 

0053 C 

0054 C 

0055 

0056 

0057 

0058 C 

i 


COMMON NCHR. IBUF* 200 • 

DIMENSION IDCB< 144', ISI7E* ? >, NAME< 3 ) 

DIMENSION JPHFC200> 

INTEGER HEAD( 1 00 > 

GET LU OF USER CONSOLE. 

CALL RMPAR(IBUF) 

LU - I8UF< 1 ) 

IF<LU . LT . 1 >LU - 1 
LP « 6 

CALL CTAPE TO MOVE TAPE OFF BEGINNING OF TAPE. 

NCHR - 13 0268 
CALL CTAPE 
CALL UAITC1 ,2) 
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0059 C GET D 1 9k FILE NAME FCR STOREO DATA. 

006.0 C 

0061 WRITE< LU . 1 00 > 

0062 1 00 FORMAT* 1 

0063 UR I TE< LU , 1 1 0 > 

0064 1 1 0 FORMAT* " READM MEMODYNE CASSETTE RECORDER DATA REDUCTION" > 

0065 C 

0066 120 CONTINUE 

0067 UR I TEC LU . 1 3 0 > 

0063 130 FORMAT < " ENTER DISK FILE NAME: > 

0069 REACKLU, 1 40 )< NAME< 11,1*1,3) 

0070 1 40 FORMAT * 3A2 ) 

0071 C 

0072 C IF DISK FILE NAME IS "EX" TERMINATE PROGRAM READM. 

0073 C 

0074 IF< NAME< 1 > EQ . 2HZX >CO TO 450 

0075 C 

0076 C CREATE DISK FILE AS TYPE 3 FILE. 

0077 C USE REST OF CARTRIDGE, TRUNCATE WHEN THRU. 

0078 C 

0079 ICN » 37 

0080 ISIZE< 1 > » -1 

0081 IDCBS » 128 

0082 CALL CREATE IDCB, IERR, NAME, ISI2E, 3, 0, ICN, IDCBS) 

0083 IF* IERR . GE . 0 )GO TO 160 

0084 WRITE<LU. 130 >NAME, IERR 

0085 150 FORMAT< " ERROR STOP. GREAT ERROR ON FILE ",3A2,". IERR • ",I5> 

0086 CALL EXEC< 6 ) 

0087 160 CONTINUE 

0088 C 

0089 C GET NUMBER OF RECORDS TO READ(NREC). 

0090 C TELL USER TO TYPE <CR> TO INITIATE READING TAPE. 

0091 C 

0092 UR I TE< LU . 1 7 0 ) 

0093 170 FORMATS" ENTER NUMBER OF 84 BYTE RECORDS TO READi ) 

0094 READC LU, * >NREC 

0095 UR I TE< LU . 1 80 ’• 

0096 180 FORMAT*, " ENTER <CR> TO BEGIN READING TAPE: > 

0097 READ( LU , * ) I K 

0098 C 

0099 C INITIhLIZE HEADER ARRAY. 

01 00 C 

0101 DO 1 9 n 1 = 1.10 0 

01 02 190 HEAD< I ) * 0 

0103 C 

0104 C URITE HEADER OF ZEROES TO DISK. UILL REMIND DISK LATER 1 

0105 C UPDATE ONCF TRUE HEADER DATA IS DETERMINED. 

0106 C 

0107 CALL URITF* IDCB , IERR , HEAD , 84 ) 

0108 IFCIERP .GE. 0 )GO TO 210 

0109 URITE<LU, 200 >NAME, IERR 

0! 1 0 200 FORMAT< “ ERROR STOP. URITF ERROR ON FILE ",3A2,". IERR ■ ",I5> 

01 1 1 CALL EXEC< 6 ) 

0112 210 CONTINUE 

0113 C 

01M C READ NREC RECORDS OF NCHP LENGTH. 

0115 C STORE FINAL DATA IN J8UF t WRITE TO DISK FILE "NAME" . 

01 16 C 

01 17 MAXCN « 0 

one oo 310 l * i ,nrec 
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Cl 19 DO 220 J * 1 .200 

0120 JBUF < J ■> = 0 

0121 22 0 I BUF ( J • = 0 

0122 C 

0123 C 

0124 C 

0125 NCHR = -84 

0126 CALL RTAPE 

0127 DO 230 I * 1,84 

0128 230 JBUFC I > • IBUFCI) 

0129 C 

0130 C DECODE DATA SET DATA RESIDENT IN ARRAY JBUF. 

0131 C CONTINUE UNTIL A CHANCE IN SEQUENCE NUMBER IS DETERMINED. 

0132 C 

0133 NS EQ = 1 O-MANOC JBUF< 1 >,360B)/I6 + I ANDC JBUFC I > , I 7B > 

0134 IF<L . EQ . 1 > JSEQ = NSEQ 

0135 C 

0136 C SEQUENCE NUMBER CHANCE'. GO CLOSE THIS DISK FILE. 

0137 C 

0138 IF'. NSEO .NE. JSEQ )GO TO 320 

0139 C 

0140 WWI TEC LU . 240 > 

0141 240 FORMATc ) 

0142 C 

0143 C WRITE CURRENT BLOCK NUMBER i SEQUENCE NUMBER ON CRT SO USER 

0144 C CAN FOLLOW PROGRESS OF READM READING CASSETE. 

0145 C 

0146 WRITER LU . 250 >L,NSEG 

0147 250 FORMAT-." BLOCK ",I4," READ. SEQUENCE NO. IS -,13) 

0148 C 

0149 C GET DATE & TIME INFO. FOR CURRENT BLOCK. 

0150 C 

0151 IDAY = 1 0 ♦ I AND< JBUF< 2 1, 36 OB VI 6 ♦ I ANDC JBUF< 2 ), 1 7B ) 

0132 IMON * 1 0*IAND< JBUFC 3 ) , 36 OB )/ 1 6 ♦ I ANDC JBUFC 3 >, 1 7B > 

0153 I YEAR « 1 04 I ANDC JBUFC 4 >, 36 OB >/ 1 6 ♦ I ANDC JBUFC 4 >, 1 7B ) 

0154 I HR = 1 Of IANDC J8UFC 5 >, 360B >/1 6 ♦ I ANDC JBUFC 5 >, 1 7B > 

0153 ININ = 1 0« IANDC JBUFC 6 >,3608 >/16 ♦ I ANDC JBUFC 6 ) , 1 7B ) 

•M36 I SEC = 1 0* IANDC JBUFC 7 >, 3608 V16 ♦ I ANDC JBUFC 7 ) , 1 7B ) 

0157 C 

0158 C IF NOT FIRST BLOCK FIRST SEVEN HEADER RECORDS ALREADY FOUND. 

0159 C 

0160 IFv L . CT . 1 1 GO TO 260 

0161 C 

0162 C FIRST Block . GET 7 HEADER RECORDS FOR DISK FILE. THEY INCLUDE 

0163 C DATA SET SEQUENCE NUMBER, START DATE OF DATA SET AND START TINE 

0164 C CTIME OF FIRST DATA BLOCK) OF DATA SET. HEADER USED SUBSEQUENTLY 

0165 C BY PROGRAM PLOTM TO I.INIMIZE OPERATOR INPUT AND CONTROL PURPOSES. 

0166 C 

0167 HEADC 1 > a NSEQ 

0168 HE AD< 2 > * IDAY 

0169 HEADC 3) = IMON 

0170 HEADC 4 < = I YEAR 

0171 HEADv ’> = IHR 

0172 HEADC 6) a IMIN 

0173 HEADC 7) ■ iSEC 

0174 C 

0175 C HEADER RECORD WORDS 9-10 UPDATE CURRENT DATA SET BLOCK TIME. 

0176 C LAST BLOCK TIME WILL SERVE AS END OF TEST TIME. 

0177 C 

0178 260 CONTINUE 
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0 1 7° 
0180 
0181 
0 1 82 
0183 
0104 
0135 

018b 

018? 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0 1 96 
019? 

0198 

0199 

0200 
0201 
0202 
0203 

02 04 

0205 

0206 
020 ? 
0208 
02 09 
021 0 
021 1 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 
0233 

0236 

0237 
023C 


HEAD<8> * I HR 
HEADl 9 > « ININ 
HEADC 10) = I SEC 
C 

C FIND CURRENT CHANNEL NO. «. UPDATE COUNTER <MAXCN> FOR MAXIMUM 

C CHANNEL FOUND BY READh FOR THIS DATA SET. WILL BECOME FINAL 

C HEADER RECORD WORD & IS USED BY PROGRAM PLOTM TO CONTROL NO. 

C OF CHANNELS PLOTTED. 

C 

DO 270 Kk = 9,77,4 
I WORD 1 » JBUFCKK) 

ICN = IANDC IUORD1 , 7?B ) 

IF<. I CN .GT. MAXCN >MAXCN » ICN 
270 CONTINUE 
280 CONTINUE 

HE AD< 1 1 ) - MAXCN 
C 

C WRITE DATA TO DISK <84 WORDS) FROM ARRAY JBUF . 

C 

CALL URITFc IDCB, IERR , JBUF, 84) 

I F( I ERR . GE. 0 '•GO Tn 300 
UR I TE< LU, 29 0 )NAME, I ERR 

290 FORMAT ( H ERROR STOP. URITF ERROR ON FILE ",3A2,". IERR ■ ",15) 

CALL EXEC<6> 

300 CONTINUE 
C 

C SUSPEND EXECUTION FOR ONE SECOND TO ALLOW DISK URITE TO 

C COMPLETE BEFORE TURNING OFF INTERRUPT SYSTEM IN RTAPE . 

C 

CALL UAI Tv 1,2) 

C 

31 0 CONTINUE 
320 CONTINUE 
C 

C IF SEQUENCE NUMBER JUST READ IS ZERO <G> WARN USER END OF DATA 

C FOUND ON THIS TAPE. NOT WISE TO ATTEMPT TO READ ANOTHER DATA 

C SET ON THIS TAPE. 

C 

IF<. NSEQ .EQ. 0>UPITE<LU,33 0 )NSEO 

330 FORMAT< " WARNING 1 NEXT SEQUENCE NO. - ",13,". EOT REACHED!") 

C 

C IF SEQUENCE NUMBER NOT ZERO THEN JUST INFORM USER OF NEXT SEQUENCE 

C NUMBER ON TAPE L BACKSPACE TAPE TO BEGINNIMC OF DATA SET. 

C 

IF< NSEQ .NE. 0)WRITE<LU,34 0 )NSEQ 
340 FORMAT< H NEXT SEQUENCE NO. ON THIS TAPE • ",I3> 

NCHR « 13427B 
CALL CTAPE 
CALL UAITC 1,2) 

C 

C TRUNCATE DISK FILE ON CARTRIDGE ICN AND CLOSE FILE. 

C 

CALL LOCF< IDCB, IERR, IREC, IR8, IOFF, JSEC > 

I F< IERR .GE. 0 )GO TO 360 
UR I T E < L U , 350 >NAME , IERR 

330 FORMAT< " ERROR STOP. LOCF ERROR ON FILE " , 3A2 . " . IERR • "13) 

CALL EXEC< 6 ' 

360 CONTINUE 

IT » JSEC/2-IRB-1 

CALL CLOSE< IDCB, IERR, IT) 
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3A2, " . IERR * ",I3 ) 


0239 
024 0 



0241 

0242 


370 

0243 


380 

0244 

C 


0243 

C 


0246 

C 


0247 

0248 

0249 

0250 
0231 

C 


0252 

0233 


390 

0254 

0255 

0236 

0237 


400 

0238 

0239 


41 0 

026 0 
0261 
0262 
0263 


420 

0264 

0263 


430 

0266 


440 

0267 

C 


0268 

C 


0269 

0270 

C 


0271 

C 


0272 

c 


0273 

0274 

c 


0275 

c 


0276 

c 


0277 

c 


0278 

0279 
0230 


450 


IF< I ERR GE 0 >G0 TO 380 
WRITE*. LU . J. 0 >NhME , IERR 

FORMAT < ERROR STOP . CLOSE ERROR OH FILE ", 

CALL EXEC*: 6) 

CONTINUE 

OPEN DISK FILE FOR UPDATE AND WRITE HEADER DATA BACK INTO 
HEADER RF.CORD (RECORD ONE). 

I OPT * 2 

CALL OPEN*. IDC8 , IERR. NAME , I OPT ) 

IF< IERR . G£ . 0 )GO TO 400 

WR I TE< LU . 390 )NAME , IERR 

FORMAT ' 1 ERROR STOP. OPEN ERROR ON FILE ,, ,3A2, 11 . IERR - ",I5) 
CALL EXEC*.' 6 ) 

CONTINUE 

CALL RUNDFv IDCP . JERR j 
IF*. JERR . GE . 0 >GO TO 420 

WRITE*. LU, 41 0 'NAME, JERR 

FORMAT; n ERROR STOP. RWNDF ERROR ON FILE " / 3A2, M . JERR ■ ",I5> 

CALL EXEC*: c ) 

CONTINUE 

CALt WPITFc IDCB, IERR, HEAD, 84) 

IF*. IERR . GE . 0 'GO TO 440 

WR I TE< LU . 4 70 >NAME , IERR 

FORMAT'" ERROR STOP. URITF ERROR ON FILE ",382,", IERR ■ "13) 
CALL EXEC< 6 ) 

CONTINUE 

CLOSE DISK FILE. 

CALL CLOSE* IDCB > 

GO BACK AND PEaD NEXT DISK FILE NAME 

GO TO 120 

TERMINATE P E ADM . 

CONTINUE 
CALL EXEC ' t ) 

END 
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iUA I T 

T-00003 IS ON CR00015 USING 00005 BLKS R*5713 


00 01 

FTN4 

, t 



0002 


SUBROUTINE WAIT-: MULT . IRES, I ERR T 


0 0 03 

C 




0004 

c 

THIS ROUTINE DUPLICATES THE FUNCTION OF THE WAIT SUBROUTINE 

0005 

c 

FOUND IN THE ISA LIBRARY. THE INPUT VARIABLES ARE 

DEFINED 

0006 

c 

AS FOLLOWS 

: 


0007 

c 

MULT 

- POSITIVE INTEGER INDICATING THE NUMBER 

OF UNITS 

0008 

c 


THE CALLING PROGRAM SHOULD BE PUT IH A 

4AIT STATE 

0009 

c 

IRES 

- THE RESOLUTION OF MULT, I.E. 


0010 

c 


0 - 10'S OF MILLISECONDS 


001 1 

c 


1 - MILLISECONDS 


0012 

c 


2 - SECONDS 


0013 

c 


3 - MINUTES 


OOM 

c 

IERR 

- RETURNED ERROR FLAG 


0015 

c 


1 - REQUEST ACCEPTED 


0016 

c 


3 - ILLEGAL PARAMETER 


0017 

c 




00' 6 


I Fl MUL T , GT , 0 

.AND. IPES.GE.O .AND, IRES.LE.3TGO TO 4 


0019 


IERR = 3 



0020 


RETURN 



0021 


4 IERR * 1 



0022 


IM » MULT 



0023 


I F < IRES .EQ. 

1 TIM » IM/1 0 


0024 


IR » IRES 



0025 


IFURES .EQ. 

0 ) I R = 1 


0026 


CALL EYEC< 12, 

0, IR, O.-IM) 


0027 


RETURN 



0028 


END 





tRTAPE T-00004 I.' ON GRi10fil5 USING 0001 0 0LKS R-5713 


0001 ASHB.R.l.T 




00 02 

NAM 

RThPE , 7 

12531 PRIVILEDGED SUBROUTINE FOR MEMODYNE 

RECORDER 

0 0 0" 

ENT 

RTAPE 



00 04 

EXT 

0LI6R.0l.ieX 


0003 

COM 

NC HP IBUF<20n> 


0006 * 





0007 * 





0008 * 

THIS 

IS A PP I V I LEDGED SUBROUTINE FOR READING RS232 FORMATTED 

0009 * 

DATA 

FROM A MEMODYNE MODE! 3765-8BV CASSETTE RECORDER. 

ITS 

0010 * 

FUNCTION IS TO 

DISABLE T'.E INTERRUPT SYSTEM UPON ENTRY, 

READ 

0011 * 

HC HP 

8-BIT BYTES FROM THE CASSETTE RECORDER. STORE THE 

DATA 

0012 * 

IN ARRAY IBUP, 

RESTORE THE INTERRUPT SYSTEM, AND RETURN 

TO 

0013 * 

THE 

CALLING PROGRAM. 


0014 * 





0015 * 

Ni'HP 

IS A COUNTER CONTROucINC THE NUMBER OF BYTES TO BE 

READ . 

0016 * 

I BUF 

IS A 200 

ELEMENT INTEGER ARRAY INTO WHICH THE DATA 

IS READ. 

0017 * 





0018 * 

THE 

INTERRUPT 

SYSTEM IS DISABLED BY A CALL TO 0LIBR. 


00 19 * 

THE 

INTERRUPT 

SYSTEM IS RESTORED BY A CALL TO tLIBX. 


0 02 0 * 





o 

o 

* 

A REAP COMMAND 

i TO THE 12531 INTERFACE CARD IS A 140000 

OCTAL 

0 022 * 





0 023 ♦ 





0024 RTAPE NOT 




0 025 

LDA 

BUF 2 

GET BUFZ ADDR 


0026 

STm 

BUFF 

PUT IT IN WORKING VARIABLE 


0 027 

LDA 

NC HR 

GET LOOP COUNTER 


0078 

XAX 


PUT IT IN X REG. 


0 028 

CL A 


CLEAR A REG 


0030 * 





0021 

JSB 

U IBP 

TURN OFF INTERRUPTS 


0032 

NOP 




0033 ■* 





0034 

L D M 

= f» i 3 3 333 

PREPARE TO SEND< WRITE) A CONTROL COMMAND 

TO RECORDER 

0035 

I' TO 

SC 

OUTPUT WRITE COMMAND TO 12531 INTERFACE CARD 

0036 

L D A 

-801 0421 

CONTROL COMMAND IS XON 


0037 

OTm 

SC 

OUTPUT IT 


0038 

src 

SC .C 

SThRT DEVIVE 


0039 

SFS 

SC 

IS OPERATION COUPLET,.’ 


0040 

JMP 

♦ - 1 

NO, KEEP '"HECK INC 


0041 * 





0042 READ LDA 

=0 140000 

LOwD COMMAND TO READ CASSETTE IN A-REC 


0043 

OTA 

SC 

OUTPUT COMMAND TO 12531 INTERFACE CARD 


0044 

STC 

SC , c 

START DEVICE OPERATION 


0045 

SFS 

sc 

IS IT THROUGH’ 


0046 

JNP 

♦ - 1 

NO, CHECK AGAIN 


0047 

L IA 

sc 

YES, INPUT IT 


0048 

AND 

B37 7 

MASK OFF UNWANTED BITS 


0049 

STA 

BUFF . I 

PUT IT IN BUFFER 


0030 

OTA 

SS 

OUTPUT DATA TO SWITCH REGISTER 


0051 

132 

BUFF 

INCREMENT BUFFER POINTER 


0032 

NOP 




0053 

1 2 ‘<i 


INiremENT LOOP COUNTER IF ZERO WE ARE THROUGH 

0034 

UMP 

REmD 

NOT DONE 


0055 * 





0056 

LDA 

»B1 33373 

PFEPnFE TO "END ANOTHER CONTROL CODE TO RECORDER 

0057 

OTA 

SC 

SET UP WRITE COMMAND TO 12531 INTERFACE 


0058 

LC-A 

Oil 433 

CONTROL COMMAND is xoff 




0059 


OTB 

SC 

OUTPUT IT 

0060 

0061 

* 

STC 

SC C 

START DEVICE 

0062 

EXIT 

HOP 



0063 


I Su 

RThFE 

BUMP THE RETURN ADDRESS 

0064 


JSB 

$ L I B X 

RESTORE INTERRUPTS 

0065 


DEF 

RTAPE 


0066 

BUFF 

NO* 



0067 

BUFZ 

DEF 

I8UF 


0068 

SC 

EQU 

266 


0069 

SS 

EGU 

016 


0070 

B37? 

OCT 

37? 


0071 

B200 

OCT 

20000 


C07? 


END 




68 




* 


#CTAPE T *0 00 03 I? ON CRH 00 15 USING 00006 BLKS R-5713 


0001 

0002 

0003 

0004 
000 ? 
0 0 06 
0007 
00 08 
0 0 08 
001 0 
001 1 
0012 

0013 

0014 
0013 
0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
0023 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


ASMB . R . 1. , T 

NAM I" 1 APE . 7 PRIVILFDGrr MENODYNE CASSETTE CONTROLLER SUBROUTINE 

ENT i TATE 

ENT ♦IIBR.ILIBX 

COM I OUT . I BUFt 2 0 0< 

+ 

♦ 

* THIS IS A PRIVILEGED SUBROUTINE FOR ISSUING CONTROL CODES TO 

* A MENODYNE MODEL 3765-8BV CASSETTE RECORDER. ITS FUNCTION IS TO 

% DISnPIE THE INTERRUPT SYSTEM UPON ENTRY, ISSUE THE CONTROL 

* COMMAND 10 THE 12531 INTERFACE CARD, RESTORE THE INTERRUPT 

* SYSTEM AND RETURN TO THE CALLING PROGRAM. 

+ 

* IOUT IS the variable containing the control code to BE ISSUED. 

* 

* THE INTERRUPT SYSTEM IS DISABLED BY A CALL TO $L IBR . 

* THE INTERRUPT SYSTEM IS RESTORED BY A CALL TO *LIBX. 

* 

* A WRITE lhRD TO THE 12531 INTERFACE CARD IS A 133333 OCTAL. 

* 

* 

* 

* 

CTAPF NOP 

jsb 

NOF 
LDA 
OTA 
LDA 
OTA 
SIC 
1 92 
JbB 
DEE 

* 

SC EQU 

SS EQU 

* 


fllBR TURN OFP INTERRUPTS 

=Pi 33333 LOAD WRITE COMMAND IN A-REG 

SC OU1PUT COMMAND TO 12531 INTERFACE CARD 

IOUT LOAD CONTROL COMMAND TO 12531 INTERFACE CARD 

SC OUTPUT COMMAND TO 12531 INTERFACE CARD 

SC.C START DEVICE OPERATION 

CThPE BUMP THE RETURN ADDRESS 

$[ IBX RESTORE INTERRUPTS 

‘'Tape RETURN TO CALLING PROFRAM 

2..-B 

IB 


END 



ICFICM T* 000 03 IS ON CR0001S USING 00u04 PLKS R*0000 

0001 FTN4 , L 

0002 program cricn 

0003 C 

0004 C 

00 03 CM0i4##t4»#41MI4#t#####4M«i1MM*4#41MMMI#t#4 4i4i####*#Mt««iit*ii§#§iiii#41l 

0006 C 

0007 C CFIGM IS THE PROGRAM WHICH ALLOWS THE USER TO GENRATE, MODIFY, 

0008 C MAINTAIN. AND LIST ONE OR MORE DISK RESIDENT FILES WHICH SERVE AS 

0009 C TRANSFER FUNCTION OR ENGINEERING UNIT CONVERSION DATA FILES TO BE 

0010 C USED BY PROGRAM PLOTM WHEN GENERATING ENGINEERING UNIT PLOTS. CFIGM 

0011 C IS THE MAIN OR CONTROL PROGRAM FOR THIS FUNCTION AND SUBROUTINE 

0012 C CNF IG IS THE PROGRAM WHICH ACTUALLY PERFORMS THE CONFIGURATION FILE 

0613 C DA7A MANAGEMENT FUNCTIONS. THE USER MAY SPECIFY AN EXISTING FILE 

0014 C FOR MODIFICATION OR UPDATE PURPOSES OR MAY SPECIFY A NEW FILE NAME 

0015 C AND INSTRUCT SUBROUTINE CNF I G TO GENERATE A NEW CONFIGURATION FILE. 

0016 C IT IS LEFT TO THE USERc S > TO MANAGE THE UTILIZATION OF MULTIPLE 

0017 C CONFIGURATION OR TRANSFER FUNCTION FILES. THE CONFIGURATION FILE<S> 

0018 C WILL RESIDE ON REEDA DISK LU 37. 

0019 C 

0020 C 

0021 C DEVELOPED BY; ESPEE INC. 

0022 C EXECUTIVE PLAZA 

0023 C SUITE 3 05 

0024 C 203. '837-8583 

0023 C 

0026 C 

0027 C44444444444444444444#44444444444444444444444444444444444#4444#4444444444 

0028 C 

0029 C 

0030 INTEGER IS IZE< 2 .> , LAB< 1 0 > 

0031 COMMON/CBLOC MDCB2< 1 44 \ NAME2C 3 > . I TYPE< 6 , 32 ) , CAIN< 32), OFFSET* 32), 

0032 . 1 UN I TS< 10,32), YMINK 32 >, YMAXK 32 >, ICOMM* 10,32) 

0033 COMMON/FLAGS/LU, IFLAG 

0034 C 

0035 C GET LU OF USER CONSOLE. 

0036 C 

0037 CALL RMPAR*. LAP ^ 

0038 LU * LABC 1 > 

0039 IFCLU .LT. 1>LU=1 

0040 C 

0041 C HAKE DEFAULT CONFIGURATION FILE NAME TABLEAA . 

0042 C 

0043 NAME2v 1 > * 2HTA 

0044 NAMF.2v2^ » 2HBL 

0045 NAME2v 3 ) » 2HEA 

0046 C 

0047 C ENTER DISK FILE NAME OF USER CONFIGURATION FILE. 

0048 C <CR > WILL SELECT DEFAULT OF TABLEAA. 

0049 C 

0050 WRITE< LU, 1 00 > 

0051 100 FORMAT< " ENTER FILENAME OF CONFIGURATION TABLE: ) 

0032 READ< LU , 1 1 0 >< LAB< I ) , 1*1,3) 

0053 HO FORMAT* 3A2) 

0034 CALL LABLE*NAME2< 1 >,LAB,3> 

0053 C 

0036 C CALL SUBROUTINE CNF IG TO PERFORM FILE GENERATION t MAINTENANCE 

0037 C OPERATIONS. 

0038 C 
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0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
006? 
0066 

0069 

0070 

0071 

0072 

0073 

0074 


120 CALL CNF 1 G 
C 

C CFICM COMPLETE. TERMINATE CFIGN. 

C 

WR I TE< LU . 1 30 > 

130 FORMATC" CFIGM DONE!**) 

CALL EXEC< 6 > 

END 

BLOCK DATA 
C 

C BLOCK DATA SUBROUTINE DEFINES COMMON BLOCKS /CBLOC/ AND /FLAGS/. 
C 

COMMON/CBLQC ' IDCB2C 144''. NAME2< 3 >, ITYPE< 6, 32 ) , CAIN< 32 >, OFFSET< 32 > 
I UN I TS( 1 0,32). YMINK32), YMAXK32), ICOMM< 10,32) 
COMMON/FLAGS/LU, I FLAG 
END 
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8.CNFIG T ■ 0 0 0 ft 3 IS OH CP00015 USING 00032 BLt* S R = 0000 


0001 

0002 

0003 

0 0 04 
0005 
00 06 
ooor 
0008 
0009 

001 0 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
0 02 0 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0 028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
0039 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
u 053 
0054 
^055 
0 056 
0 057 
0058 


FTN4 . L 

SUBROUTINE CNF I G 
C 

C THIS SUBROUTINE IS THE PRIMARY MODULE FOR GENERATING, MODIFYING, 

C AND MAINTAINING THE USER DEFINED CONGIGURAT ION FILES THAT CONTAIN 

C TRANSFER FUNCTION OR ENGINEERING UNIT CONVERSION DATA TO BE USED 

C BY PROGRAM PLOTM IN PRODUCING ENGINEERING UNIT PLOTS. THE USER 

C INTERFACES WITH THIS PROGRAM TO CHOOSE ONE OF THE FOLLOWING 

C FUNCTIONS FOR CNF I G TO PERFORM: 

C 

C 1. GENERATE A NEW CONFIGURATION FILE. 

C 2. MODIFY EXISTING RECORDS IN A CONFIGURATION FILE. 

C 3. LIST A CONFIGURATION FILE. 

C 4. TERMINATE THE PROCESS 4 RETURN TO CFIGM. 

C 

C 

INTEGER ISI2E< 2 ) L AB< 1 0 ' 

COMMON/CBLOC/ I DCB2C 144 >,NAHE2v 3 < . I T YPE< 6 , 32 ) , GA I N< 32 ) , OFFSET< 32 > , 
I UN ITS* 10. 32 ).Y MINK 32). YMAXK 32 ) . ICOMM< 10,32) 
COMMON. ’FLAGS/LU. I FLAG 
C 
C 

LFLAG = 1 
LP = 6 

C^Y 

WP I TE< LU . 1 0 0 - 
1 OC FORMATS "£Ht J" ) 

C%2 

C 

C WRITE WELCOME TO USER TERMINAL. 

C 

WRITECLU. 110) 

110 FORMATC " WELCOME TO YOUR BASIC CONFIGURATION PROGRAM M ) 

C 

C PROMPT USER TO ENTER CONFIGURATION. 

C 

120 CONTINUE 

WR I TE< LU . 130 > 

130 FORMAT'" ENTER CONFIGURATION OPTION DESIRED 

it n y 

" 1 GENEPATE NEW CONFIGURATION FILE " , / 

" 2 CHANGE AN ENTRY " , 

• 3 LIST CONFIGURATION FILE " , / 

" 4 EXIT CONFIGURATION PROGRAM M > 

C 

C DEFAULT OPTION IS 3 (LIST CONFIGURATION FILE). 

C 

IF IG = 3 
C 

C ENTER OPTION. 

C 

READ(LU,+)IFIG 

C 

C GO TO APPROPRIATE SECT ION OP CFIGM. 

C 

GO TO( 140,520,530,690), IFIG 
C 

C PREPARE TO GENERATE A NEW CONFIGURATION FILE. 


* 
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0 


0059 C 

0060 140 CONTINUE 

0061 IDCB2-. 1 0 > = 

0062 I S I ZE( 1 ) * 6 

0063 ISIZE-.2> = 0 

0064 C 

0065 C MAKE FMP CALL TO ENTER A NEW FILE WITH NAME "NAME2" ON LU 37, 

0066 C 

006? CALL CREATt IDCB2, I ERR , NAME 2 , IS I ZE , 3 , 0,37 ) 

0068 C 

0069 C IF GREAT RESULTS IN NO ERROR GO ZERO FORTRAN ARRAYS l BEGIN 

0070 C CONFIGURATION PROCESS. 

0071 C 

0072 IFCIERR .GE. 0 >G0 TO 190 

0073 C 

0074 C IF FILE "NAME2" ALREADY EXISTS ON LU 37 GO ASK USER IF HE REALLY 

0075 C KNOWS WHhT HES DOING' 

0076 C 

0077 IFCIERR .Eli. -2^GO TO 160 

0078 C 

0079 C BASIC PROBLEM! FMP ERROR ON GREAT. TERMINATE CNFIG. 

0080 C 

0081 WRITE<LU, 150MERR.NAME2 

0082 150 FORMAT*. ” ERROR STOP. GREAT ERROR ON FILE * , ,3A2, M . IERR ■ ",I6) 

0083 CALL EXECC6) 

0084 C 

0085 C ASK USER ABOUT CREATING A FILE -NAME2" WHICH ALREADY EXISTS. 

0086 C 

0087 160 CONTINUE 

0088 WRITE-. LU, 1 70 )NAME2 

0089 170 FORMAT< /, "ARE YOU SURE YOU WANT TO DESTROY THE OLD" 

0090 . " lONFIGURATION FILE^ ' " , 3A2, " ' " , 

0091 . " <Y/£N]>: > 

0092 READ< LU , 1 8 6 ) NOYES 

0093 180 FORMAT ( A 1 ) 

0094 C 

0095 C IF USER ANSWERS M N M < NO •> GO BACK AND PROMPT HIM AGAIN! 

0096 C 

0097 IFCNOYES .HE. 1 HY ' GO TO 120 

0098 C 

0099 C USER ANSWERED "Y" < YES >... MAYBE HE KHOWS WHAT HE'S DOIHG. 

01 00 C 

0101 190 CONTINUE 

0102 C 

0103 C INITIALIZE CONFIGURATION ARRAYS TO ZERO & BLANK. 

0104 C 

0105 DO 200 K * 1,32 

0106 GAIN<K> * 0. 

0107 OFFSEKK) » 0. 

0108 YMINK K > * 0. 

0109 YMAXI<K> » 0. 

01 1 0 200 CONTINUE 

0111 DO 21 0 I « 1 ,6 

Ot 12 DO 210 J ■ 1 ,32 

0113 I TYPE< I , J > - 2H 

01M 210 CONTINUE 

0115 DO 220 I- 1 , 1 0 

0116 DO 220 J » 1,32 

01 1 7 IUNITSC I , J > » 2H 

01 18 ICOMM< I , J > » 2H 
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0119 220 CONTINUE 

0120 230 CONTINUE 

0121 C 

0122 C CLEAR SCREEN ON CRT. 

0123 C 

0124 WRITE': LU. 1 oo :• 

0125 C 

0 1 26 C GET USER REmDY TO ENTER SENSOR DATA. 

0127 C 

0128 WR I TE*.' LU . 24 0 > 

0129 240 FORMAT< " PREPARE TO ENTER SENSOR DATA 

0130 . " TYPE < CR > WHEN READY TO PROCEED ",/> 

0131 REAP* LU , + )2 

0132 250 CONTINUE 

0133 C 

0134 C CLEAR CRT AGAIN. 

0 1 35 C 

0 1 36 UR I TE< LU, 1 00 > 

0137 C\2 

0138 C ENTER CHANNEL NUMBER TO BEGIN ENTERING DATA FOR. 

0139 C 

0140 WPIIE-. LU .260 ' 

0141 260 FORMAT*: " ENTER CHANNEL NU . < < 0 OR > 31 TO EXIT >i > 

0142 I ■ 0 

0143 READ*. LU , * ) I 

0144 C 

0145 C IF CHANNFL NUMBER LESS THAN ZERO < 0 > OR CREA T ER THAN 31, EXIT 

0146 C THIS PROCESS AND TERMINATE CNF I G . RETURNING TO MAON PROCRAM 

0147 C CEIGM. 

0148 C 

0149 IF*. I .LT 0 .OR. I .GT. 31) GO TO 420 

0150 II = I ♦ 1 

0151 C 

0152 C BEGIN ENTERING CONFIGURATION DATA. 

0153 C 

0154 270 CONTINUE 

0155 C 

0156 C ENTER SENSOR NaME . 

0157 C 

0158 WRITE*.' LU.280M I TYPE' J. 1 1 >, J=1 , 6 ) 

0159 280 FGRMATC " SENSOR NAME p OR CHANNEL ",I2," IS M ,6A2> 

0160 WR I TE< LU , 290 ) 

0161 290 FORMAT< “ ENTER SENSOR NAME: ^«.dB^I.*+l 1 C^&a- 1 1 C_" > 

0162 REAPfLU,300XLAB<K>,K*t,6> 

0163 300 FORMAT*, 6A2 > 

0164 CALL LABLE* ITYPE< 1 . 1 1 > .LAB, 6 ) 

0165 C 

0166 C ENTFR SENSOR LINEAR GAIN. 

0167 C 

0168 URITF<LU.310>CAIN< II) 

0169 310 FORNATC’ SENSOR LINEAR GAIN IS ".G12.4T 

0170 WR I TE* LU . 320 >< I TYPE*. J, II ). 4*1 ,6) 

0171 320 FORMAT( " ENTER LINEAR GAIN FOR ",6A2,“ : > 

0172 READC LU, ♦ '•GAINC II > 

01 73 C 

0174 C ENTER SENSOR OFFSET. 

0175 C 

0176 WRITE<LU.330)OFFSET*' II > 

0177 330 FORMAK " SENSOR OFFSET FACTOR IS " , G 1 2 . 4 ) 

0178 WRITE* LU 34 OX ITYPE< J . 1 1 ) , J* 1 , 6 > 
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01 79 
0180 


34 0 

0181 

C 


0182 

C 


0183 

0184 

C 


0185 

0186 


350 

018? 

0168 

0189 


36 0 

019 0 

C 


0191 

C 


0192 

0193 

C 


0194 

0195 


370 

01 96 
019? 


380 

0198 

C 


0199 

C 


0200 

0201 

c 


0202 

0203 


390 

0204 

0205 


400 

0206 
02 0? 


410 

02 08 

c 


0209 

c 


0210 
021 1 

C 


0212 

c 


0213 

c 


0214 

c 


0215 


420 

0216 

C 


0217 

c 


0218 

0219 

0220 
0221 

C 


0222 

c 


0223 

c 


0224 

0225 

c 


0226 

c 


0227 

c 


0228 

c 


0229 


430 

0230 

0231 


440 

0232 

c 


0233 

c 


0234 

0235 

c 


0236 

c 


0237 

c 


0238 

c 



FORMATC" ENTER OFFSET FOR " ,6A2," i _ H > 

READ<LU,+)OFFSET< II ) 

ENTER SENSOR ENGINEERING UNITS. 

WRITE< LU, 350 >( IUNITS<K, II >,K-1 , 10) 

FORMATC " SENSOR ENG. UNITS ARE: " , 1 0A2 ) 

WR I TEC LU 36 0 M ITVPE< J . 1 1 > . 1 , 6 ) 

FORMATC " ENTER ENG. UNITS FOR ",6A2," i 1 9C^8.a- I 9C_" ) 

RE ADC LU , 4 1 OH. LABC K ),K*1 , 1 0> 

CALL LABLEC IUNITS< 1 , 1 1 ), LAB, 1 0 > 

ENTER SENSOR Y-AXIS DEFAULTS CYMIN 1 YMAX ) FOR PLOTS. 

WR I TEC LU . 370 >YM I N I < II ) , YMAX I c II > 

FORMAT< " YNIN, YMAX PLOT LIMITS ARE M ,2012. 4) 

WRITER LU . 380 > 

FORMAT*." ENTER YM IN , YMAX PLOT LIMITS IN ENC . UNITS: ) 

PEAD( LU, * )YMINI( II ),YMAXI< II ) 

ENTER SENSOR COMMENT FOR THIS CHANNEL <20 CHARACTERS MAXIMUN > . 

UR I TEC LU . 390 X ICOMMC K , 1 1 ) , K* 1 , 1 0 > 

FORMATS" CURRENT SENSOR COMMENT IS ' “ , 1 0A2 , " ' " ) 

WR I TE< LU ,4 00 ** 

FORMAT< " ENTER SENSOR COMMENT: 9C^*.a- 1 9C_" > 

REAPCLU, 41 OH LAB< K ), K-1 , 1 0 > 

FORMAK 1 0A2 > 

CALL LABLE' ICOMM'' I . 1 1 > , L AB , f 0 > 

GO ENTER ANOTHER CHANNEL. 

GO TO 250 

OUT OF CHANNEL DATA C NTRY LOOP. PREPARE TO URITE TO DISK. 
CONTINUE 

ASK USER IF HE WANTS TO LIST CONFIGURATION FILE TO LINE PRINTER. 

LFLAG - 3 
WR I TE< LU . 6 00 > 

READ' LU, 180 > NOYES 

ANSWER IS YES. GO DC IT. 

I Fc NOYES .EG. IHY) GO TO 610 

DOES USER WANT TO URITE CONFIGURATION DATA TO DISK? 

WRITE*. LU.44 0 > 

FORNATC ** DO YOU WANT TO WRITE TO CONFIGURATION FILE? <Y/CN3)i 
READ( LU, 180 > NOYES 

ANSWER IS NO. CO CLOSE DISK FILE 1 RETURN TO CFIGH. 

I F< NOYES .HE. IHY) GO TO 680 

ANSWER IS YES. URITE DATA TO DISK FILE "NAME2" . 



0239 

0240 

0241 

0242 

0243 
0144 
024? 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
02 92 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 


C 


C 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c. 

c 

c 


450 CONTINUE 

CALL OPEN* IDCB2, IERR,NAME2> 

IF* I ERP .GE. 0)CO TO 470 
UR I TE* LU, 460 > IERR, NAME2 

460 FORMAT''" ERROR STOP. OPEN ERROR. I ERR • “,16," ON FILE " , 3A2 ) 
CALL EXEC <6^ 

470 CONTINUE 

CALL MRITF< I DCB2 , IERR . I TYPE, 192) 

IF< IERR . LT . 0 >GO TO 480 

CALL WR I TF*. IDCB2, IERR, CAIN, 64) 

I F< IERR . LT. 0 >GO TO 480 

CALL WRITF* IDCB2, IERR, OFFSET, 64) 

IF* IERR . LT , 0 >GO TO 480 

CALL WRITF*. IDCB2, IERR. IUNITS.320) 

IF* IERR . LT . 0 >GO TO 480 

CALL MR I TF * IDCB2, I ERR. YM INI .64) 

IF< IERR . LT . 0 ) GO TO 480 

CALL UR I TF< IDCB2, IERR . YMAX I , 64 ) 

IF* IERR . LT . 0 )GO TO 480 

ChLL WRITF* IDC62 , IERR, ICOMM,320> 

IF* IERR . GE . 0 )GO TO 500 
480 CONTINUE 

ERROR OCCURRED IN A UPITF. TERMINATE CNFIG . 

WRITE* LU, 49 0 M ERR .NAME 2 

490 FORMAT*" ERROR STOP. WRITF ERROR. IERR « ",I6," ON FILE ",3A2> 
CA ' EXEC*6> 

INFORM USER DISK FILE "NAME2" HAS BEEN WRITTEN TO DISK. 

500 CONTINUE 

WR I TE< LU . 51 0 >< NAME2< L ) , L* 1 ,3) 

510 FORMAT* /<’" CONFIGURATION PROCESS COMPLETE * , / 

" DISK FILE " . 3A2 , " WRITTEN S, CLOSED ",/> 

RETURN TO CFIGM AFTER CLOSING DISK FILE "NAHE2" . 

GO TO 680 

OPTION CHOSEN WAS 2 (MODIFY AN ENTRY). 

520 CONTINUE 
LFLAG * 2 

OPEN c 1 1 E "NAME2- AND READ EX I ST t NG CONFIGURATION DATA INTO 
APPROmRIATE FORTRAN ARRAYS. 


530 CONTINUE 

CALL OPEN* IDCB2 , I ER , NAME 2 ) 

IF* IEP .GE. 0 >GO TO 550 
WRITE* LU . 54 0 MER, NAME2 

540 FORMAT*" ERROR STOP. OPEN ERROR. IER ■ *,16," ON FILE " , 3A2 > 

CALL EXEC* 6 > 

550 CONTINUE 

CALL READF* IDCB2, IERR ITVPE, 192) 

IF* IERR . LT. 0 >GO TO 560 



0299 

0300 

0301 

0302 
03 03 

0304 

0305 

0306 
030? 
03 CS 
0309 
031 0 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 
033? 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 
034? 

0348 

0349 

0350 

0351 

0352 

0333 

0334 
0355 

0336 

0337 

0338 


CALL READF< IDC82, l ERR , CA I N . 64 > 

I F< IERR . LT . 0 >GO TO 560 

CALL REAPF< IDCB2 . IERR, OFFSET , 64 ) 

I F< IERR LT . 0 >GO TO 560 

CALL READF< IDCB2 , IERR, IUNIT3,320> 

IF< IERR .LT. 0 >GO TO 560 
CALL REAPF( IDCB2, IERR, YMINI,64> 

IF( IERR .LT. 0) GO TO 560 
CALL READF< IDCB2, IERR, YMAXI,64) 

I F< IERR .LT. 0 )G0 TO 560 

CALL READFC IDCB2, IERR, ICOMtl, 320 > 

IF< IERR .GE. 0 >GO TO 580 
560 CONTINUE 
C 

C ERROR ON A REAPF. TERMINATE CNFIG . 

C 

UR I TE< LU.57 0 >IERR , NAME2 

570 FORMAT< " ERROR STOP. READF ERROR. IERR » ",I6," ON FILE •,3A2> 
CALL EXEC< 6 ) 

380 CONTINUE 
C 

C IF OPTION IS LIST GO DO IT. 

C 

590 IF< IFIC . EQ . 3 >GO TO 610 
C 

C ASK USER IF HE WANTS CONFIGURATION DATA JUST READ IN FROM FILE 

C "NAME2" LISTEP OH PRINTER. 

C 

UR I TEC LU, 6 00 > 

600 FORMATi. " DO YOU WANT TO PRINT CONFIGURATION FILE’ <Y/CN3>t ) 
READC LU , 180) NOYES 
C 

C ANSWER IS NO. CO BEGIN ENTERING CHANNEL DATA IN ORDER TO 
C ACCOMPLISH THE DATA MODIFICATION FUNCTION. 

C 

IF^ NOYES .HE. 1HY> GO TO 230 
C 

C LIST CONFIGURATION DATA ON LINE PRINTER. 

C 

61 0 URITE<LP,620 > 

620 FORMATC 1H1 ) 

UR I TE< LP , 630 > 

630 FORMAT< ) 

WR I TE< LP , 640 >NAME2 

640 FORMATS 49X , " CONFIGURATION TABLE FOR FILE “,3A2,//> 

UR I TE< LP , 630 ) 

650 FORMATC " CN SENSOR GAIN OFFSET" , 

UNITS YNIN YHAX" , 

COMMENT",/) 

DO 670 I *1,32 
II * 1-1 

URITE<LP.660MI,'. I TYPE* K , I >,K*1 ,6 ),GAIN( I ),OFFSET< I), 

< IUNITSCK, I ),K*1 , 10>,YHINI< I ), YMAXK I ), 

( ICOMMCK, I >,K«1 , 10) 

66 0 FORMATC I X, 13, 3X , 6A2 , 2C 3X , F 1 0 . 3 > , 3X, 1 0A2 , 2< 3X , F 1 0 . 3 ) , 3X , 1 DA2 > 

670 CONTINUE 

UR I TE< LP , 630 > 

UR I TEC LP , 620 ) 

C 

C IF OPTION IS 1 GENERATE NEW FILE) RETURN TO CFICH. 
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0359 

C 


IF OPT I OH IS 2 (MODIFY 8: ENTRY'* 

. . GO 

ENTER MORE DATA. 

0360 

C 


IF OPTION IS 3 < LIST * 

. . CO 

ASK USER NEXT OPTION 

0361 

c 





0362 



GO TO C 680 .230,470 >, LFLAG 



0363 

c 





0364 

c 


CLOSE DISK FILE "NAME2" . 



0363 

c 





0366 


680 

CONTINUE 



0367 



CALL CLOSECIDCB2) 



0368 


690 

CONTINUE 



0369 

c 





0370 

c 


RETURN TO CFIGM. 



0371 

c 





0372 



RETURN 



0373 



END 



0374 



SUBROUTINE LA8LE<LAB1 , LHB2 ,NUM> 



0375 

c 





0376 

c 


THIS ROUTINE MODIFIES LABI BY LAB2 



0377 

c 


IF LH62 IS BLANK LmBI = LABI 



0378 

c 


IF LhB2 HAS ' LABI = BLANK 



0379 

c 


OTHERWISE LABI = LAB2 



0380 

c 





0381 



DIMENSION LAB U IV LAP2< 1 > 



0382 



DO 100 K E 1 NUN 



0383 



IF<LA82>: K '* . NE. 2H ' GO TO 110 



0384 


1 00 

CONTINUE 



0385 



RETURN 



0386 


1 1 0 

IF(.LAB7<1'> .EQ. 2H ■ ) GO TO 130 



0387 



DO 120 k = 1 .NUM 



0388 


120 

LAB l(K* =» LAB2»K> 



0389 



RETURN 



0390 


130 

DO 140 K= 1 . NUM 



0391 


140 

LAB 1 < K 1 » 2H 



0392 



RETURN 



0393 



END 
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4PL0TM T « 0 0 0 0 3 IS On CPC0015 USING 00163 BLkS R*0000 

0001 FTN4 , 0 

0002 PROGRAM PLOTM 

0003 C 
0 0 04 
0003 C 

0006 C PROGRAM PLOTM. READS DISK FILES CREATED BY PROGRAM READM AND 

0007 C PRODUCES PLOTS OH THE REEDtt SYSTFM'S HP 2647A GRAPHICS TERMINAL , 

0008 C HP 2608A LINE PRINTER, AND HP 98728 4-COLOR PEN PLOTTER. 

0009 C 

0010 C USER Can CHOOSE ! 

0011 C 1. PLOTTING DEVICE. 

0012 C 2. VOLTAGE OR ENGINEERING UNIT PLOTS. 

0013 C 3. START K END TIME OF PLOT. 

0014 C 4. MINIMUM S, MAXIMUM Y-AXIS VALUES. 

0015 C 5. AUTOSCALING OF Y-aXIS. 

0016 C 6. AXES 3. GRID TYPE FOR PLOT. 

0017 C 7. SThRTING CHANNEL NUMBER FOR PLOTS. 

0018 C 8. SINGLE OR MULTIPLE CHANNEL PLOTTING. 

0019 C 

0020 C 

0021 C DEVELOPED BY; ESFEE INC. 

0022 C EXECUTIVE PLAZA 

0023 C SUITE 303 

0024 C 203/837-8585 

0025 C 
0 026 C 

0027 Ci#i #4 ####•##• 4 ###•### it############################ #••••••••••••• •••••• 

0028 C 

0029 C 

0030 DIMENSION IGCB< I 92 >, IGBUFs 20 ) 

0031 DIMENSION IBUF< 1 00 >, LAB< 1 0 > 

0032 COMMON/C BLOC/ I DCB2< 1 44 ' , NAME2< 3 >, I TYPE< 6 , 32 ) , GA IN< 32 >, OFFSET< 32 >, 

0033 . IUNITS< 10, 32), YM INK 32), YMAX I< 32 ) , ICOMM< 10/32) 

0034 COMMON. -DBLOC 'IDCBC 144 >,NAME<3) 

0035 COMMOH/FLACS/LU, KPLOT, IFLAG , T I ME 1 ,TIME2 

0036 INTEGER GTYPE , AUTOSC AUTOPL , RANGE 

0037 DATA LU2647/1/ 

0038 C 

0039 C GET LU NUMBER OF HOST TERMINAL. 

0040 C 

0041 CALL RMPAR* IBUF> 

0042 LU - 1 BUF< 1 > 

0043 IF«.LU LT. 1 >LU « 1 

0044 C 

0045 100 CONTINUE 

0046 C 

0047 C CLEAR TERMINAL SCREEN AND POSITION CURSOR AT HOME POSITION. 

0048 C 

0049 C*Y 

0050 WRI TE< LU . 1 1 0 ) 

0051 1 1 0 FORMAT* ) 

0052 C(Z 

0053 C 

0054 C IDENTIFY PROGRAM AS PLOTM. 

0055 C 

0056 WRI TE< LU, 1 05 > 

0057 105 FORMAT* “ PLOTM - HP 1000 GRAPHICS DATA REDUCTION PROGRAM • 

0058 , / > 
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0059 C 

0060 C GET FILENAME OF DATA TO BE PLOTTED. 

0061 C IF FILENAME = EX OP /£ TERMINATE PROGRAM PLOTM. 

0062 C 

0063 WP I TE< LU . 120 > 

0064 120 FORMAT* " ENTER FILENAME OF DATA FILE TO PLOT: _" ) 

0065 REAOCLU, 1 3 0 K NAME*' I . I = 1 , 3 > 

0066 130 FORMAT' 7A2 * 

0067 I F< NAME< 1 1 EQ . 2HEX .OR. NAME* 1 > . Ew . 2H/E >CO TO 820 

0068 C 

0069 C OPEN FILE. 

0070 C 

0071 CALL OPEN* IDCB , IERP . NAME ■ 

0072 C 

0073 C IF OPEN -UCCESSFU GO REAP FIRST BLOCK OF DATA. 

0074 C 

0075 IF' IERP .GE. 0 ">00 TO 150 

0076 C 

0077 C EPROP ON OPEN , TERMINATE PLOTM. 

0073 C 

0079 U»RI TE. LU. 1 40 >NAME, IERR 

0080 140 FORMA f < “ ERROR STOP. OPEN ERPOR ON c ILE “,3A2,“. IERR ■ *’.13) 

0 0S1 CALL EXECC6) 

0082 C 

0033 150 CONTINUE 

0 084 C 

0085 C REAC FIRST RECORD OF DISK FILE < HEADER RECORD). 

0086 C 

0087 CALL READFUDCB, IERR, IBUF,84 > 

0088 C 

0089 C IF REAOF SUCCESSFUL GO WRITE HEADER OH TERHIHAL . 

0090 C 

0091 IF< IERR .GE. 0 >GO TO 170 

0092 C 

0093 C ERROR OH REAOF , TERMINATE PLOTM. 

0 094 C 

0093 URITE' LU, 160 )NAME, IERR 

0096 160 FORMAT< ” ERROR STOP. READF ERROR ON FILE “,3A2,“. IERR • ",I3> 

0097 CALL EXEC< 6 ) 

0098 C 

0099 170 CONTINUE 

01 00 C 

0101 C SAVE SOME HEADER PARAMETERS FOR LATER COMPUTATIOH t CONTROL. 

01 02 C 

01 03 HSEQ » IBUF< 1 ) 

0104 IDAY « I BUF< 2 > 

0103 IMOH - IBUF< 3) 

0106 I YEAR ■ IBUF( 4 > 

01 07 MAXCH - !BUF< 1 1 ) 

01 08 C 

0109 C WRITE HEADER OH TERMINAL. 

0110 C 

01 1 1 WRI T£< LU . 180 MBUF< 1 >, IBUF< 3 >, !BUF<2>, 1BUF<4>,< IBUF<H>,H»3, 1 1 ) 

0112 180 FORMATC “ THE HEADER RECORD FOR THIS FILE SHOWS t 

0113 ■ SEQUENCE NO. - “ ,12,/ 

0114 - DATE - 12, 12, V, 12,/ 

0113 “ START 11ME ■ “ , 12, - ; • , 12, " i “ , 12,/ 

0116 “ STOP THE - “,12,“;“, I2,“»“,I2,/ 

0117 “HO. CHANNELS ■ “,I2> 

0118 C 
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f 


01 1 9 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 
012 ? 
0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 
0 i 4 •. 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0140 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 
0173 

0176 

0177 
0170 


C 

c 


190 


200 


C 

C 

C 

C 


210 


C 


22 0 
C 
C 
C 

c 

c 


230 


240 


C 

C 

C 

c 


25 


C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

260 

C 

C 

C 


IS THIS T HE CORRECT cjle’ IF YES, CONTINUE. 

UP I TE< LU . 190 > 

FORMAT*, " IS THIS THE CORRECT -ILE ~ < C Y 3/N ) : ) 

IhNS * 1HY 
RE HOC LU, 20 0 >IANS 
FORMAT< A 1 ■> 

IF* 1 ANS .HE . 1 HH 'GO TO 220 

AN hNSWER OF "N” MEANS THIS IS NOT THE CORRECT FILE. WRITE ERROR 
MESSAGE l TERMINATE PI.OTM . 

URITEv LU. 21 0) 

FORMAT." PROGRAM PLOTM TERMINATED. CHECK FOR DESIRED FILE NAME.") 
CALL EXEC<6> 

CONTINUE 

SELECT PlOT TYPE: VOLTmGE OR ENGINEERING UNIT. 

kPLOT = 1 IMPLIES VOLTAGE PLOT. 

KRLOT = 2 IMPLIES ENGINEERING JNIT PLOT, 

URI TE' LU 23 0 1' 

FORMAT-.- SELECT °L0T 7. PE. (CV0],EN>: _" > 

KPLOT = 1 

'SAD* LU , 24 0 ) I OPT 

FORMAT*, A2 

IF*. I OP T EU. 2HEN)KPL0T = 2 

UMAT IS THE NAME OF THE CONFIGURATION TABLE TO 0E USED 
FOP THIS RUN'’ DEFAULT FILENAME IS "TABLEA". 

WRITE*, LU . 250 >NAME2 

-• ’MAT*." ENTER FILENAME FOP CONFIGURATION TABLE. 

" I : ) 

«k ' *.U, 1 30 K LAB* I > . 1*1 , 3 > 

CALL LAELE* NAME2*. 1 >, LAB, 3 » 

OPEN CONFIGURATION FILE FOR READING. 

CALL OPEM< IDCB2, IERR.NAME2 > 

IF OPEN SUCCESSFUL GO READ CONFIGURATION DATA. 

IF* IERP .CE. 0 >GO TO 260 

ERROR ON OPEN, TERMINATE PLOTM. 

WPITECLU. 140>NAME2, IERR 
CALL EXEC<6) 

CONTINUE 

READ CONFIGURATION DATA INTO APPROPRIATE ARRAYS . 

CALL READF< IDCP2, IERR, I TYPE , 192) 

I F< IERR .LT. 0 )GO TO 270 
ChLL READF* I0CB2, IERR, GAIN, 64 > 

IF< IERR .LT . 0 >GO TO 270 

CALL READF < IDCB2, !ERR, rt FF$ET , 64 > 
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0179 IF'. IERR .IT. 0 >GO TO 270 

0180 ChLL REH[>rcIDCB2, IERR, IUNITS, 320 > 

0181 IF-: IERR .LT. 0 )GO TO 270 

0182 ChLL READFC IDCB2 , I ERR , YM I N I , 64 ) 

0183 I F< I ERR .LT. 0 >GO TO 270 

0184 CALL REhOF (. IDCB2, JERR, YMAXI , 64 > 

0183 IF< IERR LT. 0 )GO TO 270 

0186 ChLL READFC IDCB2, IERR, I COMM, 320 ) 

0187 C 

0188 C IF IERR ZERO OR POSITIVE THEN ALL READS HAVE BEEN ERROR FREE. 

0189 C NOW GO 8. READ THE GRAPHICS LU TO DO THE PLOTTING ON. 

0190 C 

0191 IF-. IERR .GE. 0 >GO TO 290 

0192 C 

0193 C AN ERROR ON H PEAPF HAS OCCURRED. TERNINATE PLOTM . 

0194 C 

0195 270 CONTINUE 

0196 L'R I TE< LU , 28 0 >NAME2 , IERP 

0197 280 FORMAT< " ERROR STOP. READF ERROR ON FILE “,3A2,". IERR * -,13) 

Cl 98 CALL EXEC< 6 > 

0199 C 

0200 290 CONTINUE 

0201 C 

0202 C READ GRAPHICS LU . 

0203 C HP 2o47A GRAPHICS TERMINAL * LU 1 & DEVICE ID ■ 1 . 

0204 C HP 98728 4-COLuR PEN PLOTTER * LU 20 8, DEVICE ID * 2. 

0205 C HP 2608A LINE PRINTER *• LU 28 t DEVICE ID - 3. 

02 06 C 

0207 URI T £<; LU . 3 00 '■> 

0208 300 FORMAT-. " SELECT GRAPHICS LU. < [ 1 J , 20,28 ): _ M ) 

02 09 LU. = 1 

021 C REt-.-v LU . * )LUG 

021 1 IF .LUG .EG . 1 >ID = 1 

U212 IF< LUG .EG. 20HD = 2 

0213 I F( LUG .EG. 23>ID = 3 

0214 C 

0215 C READ START 8. STOP TIMES FOP PLOT. DEFAULT IS TSTART = 0. 

0216 C & 1 STOP * END OF RUN. 

0217 C 

0218 WRITE<LU.J1 0> 

0219 310 FORMAT( " ENTER START TIME FOP PLOT < ELAPSED SECONDS): _" ) 

0220 TIMES * 0.0 

0221 READ* LU , * >T I MES 

0222 WRITE-.' LU, 320 V 

0223 320 FCRMA’i " ENTER STOP TIME .'OR PLOTS < ELAPSED SECONDS): _ M > 

0224 TIMEF - 0.0 

0225 READv LU . ♦ >T I MEF 

0226 C 

0227 C Hiiro SCALE ’ IF YES. AUTOPL = 0. IF NOT, AUTOPL - t. 

0228 C 

0229 AUTOPL = 1 

0230 AUTOSC » 1HN 

0231 WR I TE< LU , 330 > 

0237 330 FORMATC " AUTOSCALE Y-AXIS ^ <Y/CNI): _ M > 

0233 READ* LU . 20 0 > AUTOSC 

0234 IF-.' AUTOSC . NE . 1HY>GO TO 34 0 

0235 AUTOPL = 0 

0236 GO TO 360 

0237 340 CONTINUE 

0238 C 
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0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0230 

0231 

0232 
0253 

0234 

0235 
02 

0237 

0256 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0232 

0283 

0284 
0283 
0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 
0299 


C READ MINIMUN & MAXIMUM VALUES FOR Y-AXIS. 

C DEFAULT FOR VOLTAGE PLOTS ARE -5.0 l 5 . 0 VOLTS. 

C CEFAULI FOR ENGINEERING UNIT PLOTS IS +1.0E+37 FOR YMIN 1 YMAX. 

C 

Y 1 = -5 . T 
Y2 = 5 . 0 

IF' KPlO’i .EG 2 >Y 1 = 1 . OE ■« 37 
IFCkPLOT .EG. 2 )Y2 = 1 . 0E>37 
WRITE-. LU . 350 > 

350 FORMAT-. " ENTER MIN AND MAX FOR Y-AXIS VALUES: _ M > 

READC LU . * 'Yl . Y2 
YMIN = AM INK Yl , V2 ) 

YMAX « AMAX1 < Yl , Y2 > 

C 

C READ AXIS & GRID TYPE. 

C AXES WITHOUT GRID: GTYPE=0 

C AXES WITH GRID: GTYPE-1 

C 

360 GTYPE « 0 

WRITE- 10.37 0- 

370 FORMAT-." SELECT AXES AND GRID TYPE 

< AXES WITHOUT GRID-103, AXES WITH GRID-1 >« > 

PEADc LU, * >GTYPE 
C 

C ENTER CHANNEL NUMBER TO PLOT. DEFAULT IS CHANNEL 0. 

C 

JON = 0 
WRITE-. LU. 380 > 

380 FORMAT-:" ENTER CHANNEL NO. TO PLOT: _“ ) 

READl LU, * >JCN 
C 

C PLOT CHANNEL JC3 ONLY OP PLOT REMAINING CHANNELS AS WELL’ 

C 

WRITE-,' LU . 390 > 

390 FORMATC " PLOT ALL SUBSEQUENT CHANNELS WITHOUT " 

. " OPERATOR INTERVENTION ? <CY3/N>: > 

IGO = 0 

READ- LU, 200 >IhNS 
IF<. IANS .EG. 1 HN >IGO * 1 
C 

400 CONTINUE 
L 

C CONVERT RUN START AND STOP TIMES < FROM HEADER RECORD > 

C TO SECONDS. 

C 

IFLAG « 1 

TIME1 * FL0AT< IBUFC 5 > >*3600 . ♦ FLOAT< IBUF< 6 > )*60 . 

♦ FLOAT< IBUF< 7 ) ) 

TIME2 = FLOAT< IBUF< 8 ) >*3600 . ♦ FLOAT< IBUF<9>>*60. 

+ FLOAT< I8UF< 10)) 

C 

C TIMES. > OJ 1 TINEF = 0.0 IMPLIES DEFAULT START t STOP 

C TIMES CHOSEN. DO NOT COMPUTE TIME 1 t TIME2 WITH 

C FOLLOWING STATEMENTS. 

C 

I Fc. TIMES .EQ. 0.0 .AND. TIMEF .EQ. 0 . 0 )GO TO 410 
TINE2 * TIME 1 ♦ TIMEF 

TIME1 » TIME1 ♦ TIMES 

410 CONTINUE 
C 
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0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 
0319 
031 1 

0312 

0313 

0314 

0315 

0316 
031 7 

0318 

0319 

0320 

0321 

0322 

0323 

0324 
0323 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 
034"’ 

0348 

0349 

0350 

0351 

0352 

0353 
0334 
0355 
i' 356 

0357 

0358 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


COMPUTE ELAPSED TIME IN SECONDS. 

EL TIM - TIME2 - T I ME 1 

CONVERT -TART 8. STOP TIMES BACK TO HRS., MIN., 1 SEC. 
EOR PLOT LABELING PURPOSES. 


NHRS * IF INC TIME 1 /36 0 0 . > 

NNIN * IFIX< TIME1-FLOaT<NHPS>+3600. >/60 

NSEC = IFIX< TIME1 -FLOATC HHPS >*3600 , -FLOATC NHIN >*60. ) 

KHRS * IFI.*« TIME2/3600 . ) 

KM I N = IFIXC TIME2-FLOATcKHRS>*3600. >/60 

KSEC * IFIX* TINE2-FL0AT< KHRS >*3600 . -FLOATC KMIN >*60. > 


IF ELAPSED TIME IN SECONDS IS GREATER THAN 1000 SECONDS 
CONVERT ''LAPSED TIME ALONG WITH START 8< STOP TIMES TO 
MINUTES . 

I FLAG = 2 WILL DENOTE TIME IS IN MINUTES FROM THIS 
POINT ON. IFLhG » 1 FROM HERE ON MEANS TIME IS IN SECONDS. 


IF*. EL T I M , GT . 
IF*. IFLAG .EG) . 
IFC I FLAG .EQ. 
IFc IFt.AC .EQ. 


1 0 00 > I FLAG = 2 

2 '<T I ME 1 * TIME 1/60. 0 
2 UIMEO = TIME2/60. 0 
2 )EL T I M = EL T I M/6 0 . 


420 CONTINUE 


IF ANTOSCALING WAS CHOSFN CALL SUBROUTINE BOUND TO 
REND THE Y-ARRAY FOR CHANNEL JCN AND DETERMINE YMIN 
AND YMAX . 


IF<mUTOPL .NE. 0 >GO TO 430 
CALL BOUNDS JCN . YMIN, YMAX > 
DELTA = C YMAX - YMIN) 

IFC DELTA .GT. 1 . 0 >GO TO 430 
Y 1 = YMIN - 0.1 0*YM I N 
Y2 = YMAX + 0 . 1 0*YMAX 
YMIN = AM IN KYI , Y2 > 

YMAX = AMAX1 < Y I , Y2 > 


430 CONTINUE 

KFLOT = 1 IMPLIES VOLTAGE PLOT. SKIP CHECK ON KPLOT - 2 
t YMIN NOT EQUAL YMAX. INTENDED FOR ENGINEERING UNIT PLOTS 
ONLY . 


I Ft KPLOT .Eu. 1 TGO TO 440 

1* PLOT = 2 IMPLIES ENGINEERING UNIT PLOT. IF YMIN=YMAX GET 
YMIN S. YMAX FROM CONFIGURATION ARRAYS. 


IFc KPLOT .EQ. 2 .AND. YMIN .NE. YMAX )GO TO 440 
YMIN = YMINK JCN+1 > 

YMAX = YMAXK JCN* 1 > 

440 CONTINUE 


CALCULATE XTIC, YTIX, AND TMAX FOR DEFINING TIC MARKS I. 
X. Y LIMITS IN ORDER TO DRAU THE AXES AND/OR GRID. 
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0359 C 

036 0 YTIC * ' YMAX-YMIN V20 . 0 

0361 TMAX = 6t.»*(AlNT<cELTIM-1 . 0 V6 0 . 0 )♦ 1 ,0> 

0362 XT I C * TMAX/24 . 0 

0363 C 

0364 C DEFINE ASPECT RmTIO <AR> FOR THE SELECTED PLOTTING DEVICE. 

0365 C 

0366 AP * 2.0026 

036? IF< ID .EO. 2>AR = 1.52 

0368 I F< ID .EQ. 3 >AR = 1 .283 

0369 C 

0370 C INITIALIZE THE GRAPHICS TASK. 

0371 C 

0372 CALL PLGTRC IGCB , ID , 1 . LUG > 

0373 C 

0374 C DEFINE THE VIEW SURFACE ASPECT RATIO. 

0375 C 

0376 CALL SETARUGCB , AR > 

0377 C 

0378 C IF PLOT DEVICE IS HP 2647A TERMINAL, INITIALIZE GRAPHICS MODE 

0379 C AND TURN OFF THE ALPHANUMERIC DISPLAY. 

0380 C 

0381 I Ft ID .EG. 1 )CALL GRAFCLU2647 > 

0382 C 

0383 C IF PLOT DEVICE IS HP 9872B 4-COLOR PEN PLOTTER SELECT PEN #1 

0384 C TO DRuU AXES AND. 'OR GRID AND TO WRITE INITIAL PLOT TITLE 

0385 C INFORMATION. 

0386 C 

0387 IF< ID EG. 2 >CALL PEN< IGCB, 1 > 

0388 C 

0389 C DRAW A FRAME AROUND THE CURRENT CLIPPING LIMITS. AT THIS POINT 

0390 C THE LIMITS ARE THE PHYSICAL LIMITS "F THE SELECTED DEVICE. 

0391 C 

0392 CALL FRAMECIGCB) 

0393 C 

0394 C DEFINE THE VIEWPORT IN THE NORMALIZED COORDINATE SYSTEM. 

0395 C 

0396 IF< ID .EG. 1 >CALL VIEUP< IGCB, 20 . , 1 80 . , 1 4 . , 84 . ) 

0397 IF< ID .EQ. 2>CALL V IE(JP< IGCB , 1 6 . , t 38 . , 1 4 . , 84 . > 

0398 IF< ID .EQ. 3 >CALL V IEWPUGCB, 1 4 . , 1 1 8 . , 1 4 . , 84 . ) 

0399 C 

0400 C DRAW A SECOND FRAME AROUND THE REDEFINED CLIPPING LIMITS. 

0401 C 

0402 CALL FRAME< IGCB > 

04 03 C 

0404 C DEFINE A WINDOW IN THE WORLD COORDINATE SYSTEM. 

0405 C 

0406 CALL W I NDW< IGCB, 0 . , TMAX , YM I N , YMAX > 

0407 C 

0408 C FOR 2600A LINE PRINTER PLOTS, MAKE THE CHARACTER SIZE HEIGHT 

0409 C SMALLER SO THEY DON'T DOMINATE THE RESULTANT PLOT. 

0410 C 

0411 IFi ID .EQ. 3 >CALL CSIZE< IGCB , 2 . 0 > 

0412 C 

0413 C DEFINE n IN A FORTRAN F?.n FORMAT FOR AXIS LABELLING. 

0414 C 

0415 CALL FXD< IGCB, 2 ) 

0416 IF< ID . EQ . 3 >CALL FXD< IGCB, f ) 

0417 C 

0418 C IF CTYPE » 0 DRAW LABELLED X-Y AXES WITHIN THE CUPPING REUON. 
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0479 

0480 

0481 
0432 

0483 

0484 

0485 

0486 
0497 

0488 

0489 
049 0 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 
05 0 0 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 
031 1 

0512 

0513 

0314 

0315 

0316 

0317 

051 8 
0519 

052 

052 1 

0522 

0523 

0524 
v 525 
0526 

0327 

0328 
0529 
0330 
033 i 

0532 
.'533 
U534 

0533 
0336 

0537 

0538 


C LABEL Y-AXIS •■VOLTS” I. VOLTAGE PLOT WAS SELECTED. 

C 

I F < KPLOT .EQ. 1 -.WRITE*: LUG 470 ) 

470 FORMAT*: "VOLTAGE (. VOLTS)") 

C 

C LABEL Y-AXIS WITH LABEL FROM CONFIGURATION ARRAY IUNITS 

C IF EHG. UNIT PLOT WAS SELECTED. 

C 

IF*, k PLOT .EQ. 2) WRITE*: LUG. 490)*: IUNITS< JJ, JCN+ 1 >, JJ»1 , 10) 

480 FORMAT< 1 0A2 > 

C 

C RE-ORIENT LABEL DIRECTION TO HORIZONTAL . 

C 

CALL LDIR<. IGCB, 0.0) 

C 

C FOR HP 9872B 4-COLOP PEN PLOTTER PLOTS, MAKE THE CHARACTER 

C SICE HEIGHT SMALLER SO THEY DON'T DOMINATE RESULTANT PLOT, 

C 

IF*. ID .EQ. 2 )CALL CSIZE*. IGCB .2.0) 

C 

C DEFINE X NORMALIZED COORDINATE FOR THE SELECTED PLOTTING DEVICE 

C IN PREPARhTION FOR WRITING HEADER INFORMATION ON PLOT. 

C 

XP =* 2 0.0 

IF*. ID , EQ . 2 )XP = 16.0 
IF*. ID . EQ . 3 )XP * 14.0 
C 

C MOVE PEN TO X-Y NORMALIZED COORDINATE IN PREAPARAT ION 

C FOR WRITING DISK FIlE NAME ON PLOT. TURN ON TEXT NODE FOR 

C NEXT WRITE STATEMENT, 

C 

CALL MOVEC IGCB. XP, 97. 0) 

CALL LABEL*: IGCB) 

C 

C WRITE DISK FILE NAME ON PLOT. 

C 

WRITE*,LUG.490) NA M E 
490 FORMATC "FILE NAME IS " , 3A2 > 

C 

C MOVE PEN Tu NORMALIZED X-Y COORDINATE IN PREPARATION 

C FAR WRITING TEST SEQUENCE NUMBER ON °LOT . TURN ON TEXT 

C MODE FOR NEXT WRITE STATEMENT. 

C 

CALL MOVE* IGCB. XP, 94. 0> 

CALL LABEL* IGCB) 

C 

C WRITE SEQUENCE NUMBER ON PLOT. 

C 

WPITE* LUG , 50 0 )NSEQ 
500 FORNAT< "SEQUENCE NO. IS ",I3> 

C 

C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

C FOR WRITING CURRENT CHANNEL NUMBER t START DATE ON PLOT. 

C TURN ON TEXT NODE FOR NEXT WRITE STATEMENT, 

C 

CALL MOVE< IGCB. XP, 91 - 0) 

CALL LABEL C IGCB> 

C 

C WPITE CHANNEL NUMBER *. START DATE ON PLOT. 
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0539 URITE< LUG, 51 G1JCN, IMON IDAY, I YEAR 

0540 510 FORMAT-.' "CHANNEL " . I 2 , 1 X , 1 2 , “ / " , 12 , , 12 ) 

0541 C 

0542 C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

0543 C FOR WRITING TEST START TIME ON PLOT. TURN ON TEXT MODE 

0544 C FOR NEXT WRITE STATEMENT. 

0545 C 

0546 CALL MOVE* IGCB , XP . 88 . 0 > 

0547 CALL LhBEL< IGC6 1 

0548 C 

0549 C WRITE ST^RT TIME ON PLOT. 

0550 C 

0551 L-RITEvLUG. 5201 NHRS,NMIN. NSEC 

0552 520 FORMAT* "START T I ME : " , 1 2 , " : " , 1 2 . " » ",I2 > 

0553 C 

0554 C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

0555 C FOR WRITING TEST STOP TIME ON PLOT. TURN ON TEXT MODE 

0556 C FOR NEXT WRITE STATEMENT. 

0557 C 

0558 CALL MOVE< IGCB . XP , 85 . 0 > 

0559 CALL LABEL* IGCB 1 

0560 C 

0561 C WRITE STOP TIME ON PLOT. 

0562 C 

0563 WRITE-: LUG , 53 0 1KHRS , KM I N . KSEC 

0564 530 FORMAT-: "STOP TIME : - , 12, " : M2, " : " , 12 ) 

0565 C 

0566 C REDEFINE THE VIEWPORT BACK TO THE NORMALIZED COORDINATE SYSTEM 

1567 C FOR THE SELEC i'ED PLOTTING DEVICE. 

0566 C 

0569 IF*. ’ D .EG. 1 .CALL VIEWP< IGCB, 20. ,180. ,14. ,84.) 

0570 IF* ID .EG. 2 >CALL VIEWP< IGCB, 16. , 138. , 14. ,84. > 

0571 IF* 10 .EQ. 3 >CALL VI£UP< IGC8, 1 4 . , 1 1 8 . , f 4 . , 6« . ) 

0572 C 

0573 C REDEFINE THE WINDOW IN THE WORLD COORDINATE SYSTEM. 

0574 C 

0575 CALL WINDWC IGCB, 0 . , TMAX, YMIN, YMAX ) 

0576 C 

0577 C INITIALIZE IMPORTANT VARIABLES PRIOR TO BEGINNING 

0578 C THE READ DATA & COMPUTE X-Y DATA LOOP. 

0579 C 

0530 C IC » NO. POINTS READ FOR CHANNEL JCN. 

0531 C SUM » SUM OF Y DATA READ FOR CHANNEL JCN.CN. 

0502 C SUMSQ = SUM OF Y DATA READ FOR CHANNEL JCN SQUARED. 

0583 C ZMIN - CURRENT VALUE OF YMIN FOR Y DATA READ FOR CHANNEL JCN. 

0584 C ZMAX » CURRENT VALUE OF YMAX FOR Y DATA READ FOR CHANNEL JCN. 

0585 C 

0586 IC * 0 

0587 SUM » 0.0 

0589 SUMSQ * 0.0 

0589 ZMIN = YMAX 

0590 ZMAX = YMIN 

0591 C 

0592 C 

0593 540 CONTINUE 

0594 C 

0595 C READ ONE RECORD FROM DISK. 

0596 C 

0597 CALL PEADF* I DCB , IERR , IBUF , 84 , ILEN > 

0598 C 
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0599 

0600 
0601 
06 02 
06 03 
06 04 
06 05 

06 0 c 
060? 
0606 
06 09 
0610 
06 1 1 
0612 

0613 

0614 

0615 

0616 
0617 
06*9 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 
0627 
0626 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 
0649 

0649 

0650 

0651 
"652 
0653 
C654 
0655 
0. 56 

0657 

0658 


C IF READ SUCCESSFUL GO CHEC* OH END OF FILE WORD. 

C 

IFC I ERR .GE. 0 >G0 TO 56 0 
C 

C ERROR ON READF . TERMIHhTE PLOTM. 

r 

WRITE 1 , LU . 55 0 >NAI'lE, IERR 

530 FORMAT.' " ERROR STOP, READF ERROR ON FILE ",382,". IERR * H ,15) 
CALL EXEC. 6 > 

C 

560 CONTINUE 
C 

C IF END OF FILE NOT FOUND YET GO TO SECTION 

C OF PLOTM THAT ISOLATES t.HANNEL JCN OATa 8. COMPUTES 

C 8. PLOTS X-Y DATA, 

C 

IF. ILEN GE. 0)GO TO 720 
C 
C. 

C END OF FILE FOUND ON THIS PISk FILE. 

C THIS IMPLIES AIL X-Y DATA FOP CHANNEL JCN HAS 

C BEEN PLOTTED. NOW FINISH TITLE INFORMATION ON 

C- PLOT AND PEC IDF WHAT TO DO NEXT. 

C 

570 CONTINUE 

c 

C REDFINE VIEWPORT AND WINDOW TO THE PHYSICAL LIMITS OF THE 

C SELECTED PLOTTING DEVICE IN PREPARATION FOR COMPLETING 

C PLOT TITLE AND LABEL INFORMATION. 

C 

IF. ID .EQ. 1 )CALL VIEUP. IGCB, 0.0, 200. 0,0. 0, 100.0) 

IF. ID EO. 1 )CALL U!NDU< IGCB, 0. 0,200. 0, 0. 0, 100. 0) 

IFC ID EG. 2 >C ALL V I EWP< IGCB , 0 . 0 , 1 52 . 0 , 0 . 0 , 1 00 . 0 ) 

IF'. ID .EG. 2 TCALL U I NDW< IGCB . 0 . 0 , 1 52 . 0 , 0 . 0 , 1 0 0 . 0 ) 

I F< I P .EO. 3>CALL VIEWPC IGCB, 0. 0, 128.0,0.0, 100. 0) 

IF. ID .EQ. 3 >CALL U I HOW< I GCB , 0 . 0 . 1 28 . 0 , 0 . 0, 1 00 . 0 ) 

C 

C FE-SELECT PEN 1 FOP THE HP 98728 4-COLOR PEN PLOTTER. 

C 

IFCID .EC. 2 )CALL PEN<IGCB,1> 

C 

C DEFINE X NORMALIZED COORD INAT t FOP THE SELECTED PLOTTING DEVICE 

C IN PREPARATION FOR WRITING MINIMUM l MAXIMUM Y DATA ON PLOT. 

C 

XP • 70.0 

IFt ID .EQ. 2 )XP = 55.0 
IF. ID .EO. 3 )XP = 48.0 
C 

C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

C FOR WRITING MAXIMUM Y VhLUE ON PLOT. TURN ON TEXT MODE 

C FOR NEXT WRITE STATEMENT. 

C 

CALL MOVE 1 ' IGC8 . XP , 97 . 0 ' 

CALL l ABEL* ICC8 ) 

C 

C WRITE MAXIMUM V VALUE FOR CHANNEL JCN ON PLOT. 

C 

WRITE. LUG. 580 »ZMAX 
580 FORMAT. "MAX. V VALUE IS M .F8.2> 



0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 
06 3 
0679 
068C 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 
0693 

0699 

0700 

0701 

0702 

0703 

0704 
0703 

0706 

0707 

0708 

0709 
071 0 
07 1 1 

0712 

0713 

0714 
0713 
C716 

0717 

0718 


C MOVE PEN TO NORMAL I ZED X-Y COORDINATE IN PREPARATION 

C FOP WRITING TIME AT WHICH MAXIMUM Y OCCURRED. TURN ON 

C TEXT MODE FOR NEXT WRITE STATEMENT. 

C 

CALL MOVE< IGCB XP,94.0) 

CALL LABEL * IGCB > 

C 

C WRITE TIME AT WHICH YMAX OCCURRED IF TIME IS IN SECONDS. 

C 

IF*. I FLAG . EG . 1 >WP I TE-' LUG . 59 0 >T I MEX 
590 FORMATS "OCCURRING AT i ",F6.2," SEC.") 

C 

C WRITE TIME AT WHICH YMAX OCCURRED IF TIME IS IN MINUTES . 

C 

IF«. IFLAG .EG. 2 >WP I TE* LUG . 6 0 0 )T IMEX 
600 FORMAT'. "OCCURRING AT: ",F6.2, H MIN.") 

C 

C MOVE PEN TO NORMALIZED X-Y COORDINATES IN PREPARATION 

C FOR WRITING MINIMUM Y VALUE ON PLOT. TURN ON TEXT MODE 

C FOR NEXT WRITE STATEMENT. 

C 

CALL MOVE*; IGCB, XP, 91 . 0 > 

CALL LABFL< IGCB ) 

C 

C WRITE MINIMUM Y VALUE FOR CHANNEL JCN ON PLOT. 

C 

WRITE* LUC, 61 0 >ZMIN 
610 FORMAT* "MIN . Y VALUE IS ".F8.2> 

C 

C MOVE FEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

C FOR WRITING TIME AT WHICH MINIMUM Y OCCURRED. TURN TEXT 

C MODE ON FOR NEXT WRITE STATEMENT. 

C 

CALL MCVE< IGCB,XP, 88 . 0 ' 

CALL LAPEL* IGC8 1 
C 

C WRITE TIME AT WHICH YM IN OCCURRED IF TIME IS IN SECONDS. 

C 

IF* IFLAG .EG. 1 )WRITE<LUC.620)TIMEN 
620 FORMAT* "OCCURRING AT: ",F6.2," SEC.") 

C 

C WRITE TIME AT WHICH YM I N OCCURRED IF TIME IS IN MINUTES. 

C 

IF* IFLAG .EQ. 2 1 * WRITE* LUG, 63 0>TIMEN 
630 FORMAT* "OCCURRING AT: ",F6.2," MIN.") 

C 

C CALCULATE THE MEAN AND STANDARD DEVIATION OF Y DATA 

C FOR CHANNEL JCN IN PREPARATION FOR WRITING IT ON PLOT. 

C 

YMEAN = SUM/FLOAT* IC ) 

YVAP * * FLOAT* IC >*SUMSQ - SUM**2 >/< FLOAT* IC >*FLOAT< IC- 1 > > 

YSTD * 0.0 

IFtYVAR GE. 0.0)YSTD = SORT* YVAR ) 

C 

C DEFINE X NORMALIZED COORDINATE FOR THE SELECTED PLOTTING DEVICE 

C IN PREPARATION FOR WRITING MEAN, STANDARD DEVIATION, SENSOR 

C TYPE, AND SENSOR COMMENT DATA ON PLOT. 

C 

XP = 130.0 

IF* ID EO. 2 >XP « 105.0 
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0719 IF< ID .EQ. 3 >XP = 87.0 

0720 C 

0721 C HOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

0722 C FOR WRITING MEAN OF Y DATA ON PLOT. TURN ON TEXT MODE 

0723 C FOR NEXT WRITE STATEMENT. 

0724 C 

0725 CALL MOVE-' IGCB.XP, 97.0 > 

0726 CALL LABELT IGCB > 

0727 C 

0728 C WPITE MEAN OF V DATA ON PLOT, 

0729 C 

0730 WRITE-' UJG, 64 OJYMEAN 

0731 640 FORMAT' "MEAN OF Y =",F8.2> 

0732 C 

0733 C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

0734 C FOR WRITING STANDARD DEVIATION OF Y DATA ON PLOT. 

0735 C TURN TEXT MODE ON FOR NEXT WRITE STATEMENT. 

0736 C 

0737 CALL MOVE- IGCB . XP , 94 . 0 > 

0738 CALL LABEL- IGCB > 

0739 C 

0740 C WRITE SThNDARD DEVIATION OF Y DmTh ON PLOT. 

0741 C 

0742 WRITE-. LUG, 650 >YSTD 

0743 650 FORMAT < " ST . DEV. Y = M , E8 . 2 > 

0744 C 

0745 C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PREPARATION 

0746 C FOR WRITING SENSOR TYPE ON PLOT. TURN ON TEXT MODE FOR 

0747 C NEXT WRITE STATEMENT. 

0748 C 

0749 CmLL MOVEC IGC8,XP, 88 . 0 > 

0750 CALL LA8EL< IGCB) 

0751 C 

0752 C WRITE SENSOR NAME FOR CHANNEL JCN ON PLOT. 

0753 C 

0754 WRITE-. LUG . 660 "K I TYPE-. JJ, JCH+1 = 1 ,6> 

0753 660 FORMAT< 6A2 > 

0756 C 

0757 C MOVE PEN TO NORMALIZED X-Y COORDINATE IN PRAPARATION 

0758 C FUR WRITING A COMMENT ON PLOT. TURN ON TEXT MODE FOR 

0759 C NEXT WRITE STATEMENT. 

0760 C 

0761 CALL MOVE< IGCB . XP 85.0* 

0762 CALL LABEL-. IGCB ) 

0763 C 

0764 C WRITE COMMENT FOR CHANNEL JCN ON PLOT. 

0765 C 

0766 WRITE- LUG .670 *< ICOMM-. JJ, JCN+1 ), JJ«1 ,10) 

0767 670 FORMAT- 10A2) 

0768 C 

0769 C SEND PLOT TO DEVICE. 

0770 C 

0771 CALL XM!T< IGCB '* 
r ’7?2 C 

0773 C INCREMENT CHANNEL COUNT BY *1. 

0774 C 

(.775 JCN ■= JCN+ 1 

0 *76 C 

C777 C IF THE PLOT DEVICE 4 THE HP 2647A GRAPHICS TERMINAL, 

0778 C GET A HAPDCO p Y FROM I HE TEKTRONIX 4631 HARDCOPY UNIT 
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07^9 C AND TUP / THE GRAPHICS MODE OFF g. THE ALPHANUMERIC MODE 

0780 C BACK ON. 

0781 C 

0^82 IF*. ID .EG. 1 )CALL HCOPYC LU264? ) 

0783 IF*. ID EG. 1 >CALL NGRAF-' LU264? > 

0784 C 

0785 C GO GET NEXT USER DIRECTIVE IF PLOTS ARE NOT TO BE 

0786 C GENERATED CONSECUTI VELY , 

0787 C 

0788 IF-.IGO .EG. 1 >GO TO 770 

0789 C 

0790 C GO GET NEXT USER DIRECTIVE IF NEXT CHANNEL NUMBER TO PLOT 

0791 C IS GREATER THAN THE MAXIMUM NUMBER OF CHANNELS DEFINED 

0792 C hCTIVE FOR THIS TEST BY THE VARIABLE MAXCN . 

0793 C 

0794 IF*.JCN .GT. MAXCN TGO TO 770 

0795 C 

0796 C PLOT COMPLETE. IF PLOT DEVICE IS HP 9872B 4-COLOR PEN PLOTTER 

0797 C STORE PEN IN HOLDER, THEN RAISE AND MOVE PEN TO UPPER-RIGHT 

0798 C HAND CORNER OF THE PLATTEN. 

0799 C 

0800 IFC ID .EO. 2JCALL PEN'IGCB,0) 

0801 I F( I D EG. 2TCALL PLOTR< IGCB, ID, 0 ) 

P8 02 C 

0803 C IF PLOT DEVICE IS HP 9872B 4-COLOR PEH PLOTTER, ASK USER 

0804 C TO CHANGE PAPER BEFORE CONTINUING. 

08 05 C 

0806 IFUD EG. 2 >UR I TEv LU , 68 0 > 

0807 680 FORMAT< " CHANGE PAPER ON HP9872B PLOTTER. ENTER <CR> TO ■ 

0808 "CONT IN'<£ . “ ) 

08 09 C 

0810 C USER MUST TYPE <CR> TO CONTINUE IF DEVICE IS HP 9872B . 

0811 C 

0812 IF*. ID .EO. 2 >READ< LU,* )ICO 

0813 C 

0814 C REWIND DISK FILE FOR NEXT PLOT. 

0815 C 

0816 CALL RUNDF*. IDC8, IERR> 

0817 C 

0818 C IF REMIND SUCCESSFUL GO READ HEADEk RECORD. 

08(9 C 

0820 IFC I ERR . GE . 0 >GO TO 700 

0821 C 

0822 C ERROR ON REWIND, TERMINATE PLOTM. 

0823 C 

0824 URITECLU.690 >NAME , I ERR 

0825 690 FORMATC " ERROR STOP. RWNDF ERROR ON FILE ",3A2.". I ERR ■ ",I5> 

0826 CALL EXECC6) 

0827 C 

0828 700 CONTINUE 

0829 C 

0830 C READ HEADER RECORD OF DISK FILE IN ORDER TO POSITION DISK 

0831 C AT FIRST RECORD OF DATA FOR NEXT PLOT. 

0832 C 

0833 CALL READFC 1DCB, I ERR, IBUF, 84 ) 

0834 C 

0835 C IF READF SUCCESSFUL GO START NEXT PLOT. 

0836 C 

0037 IFCIERP .GE. 0 )GO TO 710 

0038 C 
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0839 C ERROR ON READF , TERMINATE PLOTfl . 

0840 C 

0841 WRITE! LU,550 >NAME, I ERR 

0842 CALL EX£C<6> 

0843 C 

0844 710 CONTINUE 

0845 C 

0846 C CO START NEXT PLOT. SPECIFICALLY, CO BACK i AUTOSCALE NEXT 

0847 C CHANNEL'S Y DATA OR USE DEFAULT DATA I. START PROCESS ALL 

0248 C OVER AGAIN. 

0849 C 

0850 CO TO 420 

0851 C 

0852 720 CONTINUE 

0853 C 

0854 C PRIMARY X-Y COMPUTATIONAL AND X-Y POINT PLOTTING LOOP 

0855 C BEGINS HERE. 

0856 C 

0857 C IF PLOTTING DEVICE IS HP 9872B 4-COLOR PEN PLOTTER 

0858 C SELECT PEN *3 TO DRAW X-Y POINTS. 

0859 C 

0860 I F< I D .EQ. 2>CALL PEN<IGCB,3> 

0861 C 

0862 C LOOP THRU DATA IN IBUF UNTIL CHANNEL JCN IS FOUND < ICN ■ JCN). 

0863 C USE DATA IN IUORD1 , IWORD2, IU0RD3, t IU0RD4 TO DETERMINE 

0064 C X-Y DATA. 

0865 C 

0866 DO 740 KK ■ 9,77.4 

0867 IWORD1 - IBUF<KK> 

0868 IW0RD2 • IBUFCKK-H) 

0869 IW0RD3 - I8UF<KK+2> 

0070 IU0RD4 • IBUF< KK+3 ) 

0871 C 

0872 C IF ALL FOUR WORDS - 0 A BASIC ASSUMPTION ABOUT THE DATA 

0873 C HAS BEEN VIOLATED. GO TERMINATE PROGRAM PLOTM. 

0874 C 

0875 I F< I WORD 1 .EQ. 0 .AND. IW0RD2 .EQ. 0 .AND. 1WORD3 .EQ. 0 

0876 + .AND. IUORD4 .EQ. 0 >CO TO 750 

0877 C 

0878 C COMPUTE CHANNEL NUMBER FROM CURRENT POINTER TO IBUF. 

0879 C 

0880 ICN ■ I AND( IWORD1 , 77B > 

08B1 C 

0882 C IF COMPUTED CHANNEL NUMBER GREATER THAN CURRENT CHANNEL NUMBER! JCN > 

0883 C CO READ NEXT RECORD FROM DISK. 

0884 C 

0885 IF* ICN .GT. JCN )G0 TO 340 
0896 C 

0987 C IF COMPUTED CHANNEL NUMBER NOT EQUAL TO CURRENT CHANNEL NUMBER! JCN) 

0888 C GO LOOK AT NEXT 4 WORDS OF IBUF. 

0889 C 

0890 IF< ICN . KE . JCN>CO TO 740 

0891 C 
0092 C 

0893 C COMPUTE DIGITS FOR VOLTAGE CALCULATION. 

C894 C 

(895 ID1 - I AND! I WORD! , 300B >/64 

0896 ID2 « 1ANDC JWORD2 , 3609 VI 6 

0897 IDS * IAND! IW0RD2, 1 ) 

0898 ID4 * IAND! IWORD3, 36 OB VI 6 
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0899 ID? ■ I AND* !UORf>3,17fcO 

0900 C 

t90i c determine: sign or voltage . 

0902 C 

0903 ISIGN = I AHD< I UORD4 .20 06 VI 20 

0904 IFCISIGN .EG. O'-ISIGN = -! 

0903 C 

0906 C COMPUTE VOLTAGE FOR THIS TIME POINT. CURRENT CHANNEL IS JCN, 

0907 C 

0908 VOLTS = FLOAT < ID 1 ) ♦ FLOATS ID2 )* 0 . 1 ♦ FLOATC ID3 )*0 . 01 

0909 . * FLOAT< ID4 >*0 .001 ♦ FLOA T< I D5 >* 0 . 0 0 0 1 

0910 C 

0911 C DETERMINE IF VOLTAGE IS OUT OF RANGE. 

0912 C 

0913 RANGE - I AND< I WORD 4 . 1 C . 8 >/64 

0914 I Ft RANGE . EQ . 1)VOLTS = 3.9999 

0915 C 

0916 C COMPUTE V POINT WITH CORRECT SIGN. 

0917 C 

0918 Y = I S I GN+V0LTS 

0919 C 

0920 C UPDATE V POINT IF ENGINEERING PLOT WAS SELECTED. 

0921 C 

0922 I F< X PLOT . EQ . 2W =» GAI N< JCH+ 1 >+Y ♦ OFFSETC JCN-H ) 

0923 C 

0924 C GET CURRENT HRS.. MIN.. SEC. TO COMPUTE X POINT . 

0923 C 

0926 I HR = 1 0*IAND< IBUF< 5 >,3606 V16 «■ IAND< IBUF< 5 ), 178) 

0927 IMIN » 1 0*IAND< I BUF< 6 > , 36 08 V 1 6 ♦ I AND< IBUF< 6 > . 1 7B > 

0928 I SEC = 1 0 * I AND< IBUF< 7 > , 36 OB >/ 1 6 ♦ IrtnD< IBUF< 7 ) , 1 7B > 

0929 C 

0930 C CONVERT CURRENT TIME TO ELAPSED SECONDS. 

0931 C 

0932 TIMER = FLOAT< IMR >*3600 . + FLOAT< ININ >*60 . * FLOAKISEC) 

0933 X ■ TIMER 

0934 C 

0935 C TIME IS IN MINUTES SO CONVEPT ELAPSED TIME TO MINUTES. 

0936 C 

0937 IFcIFLmC . EQ . 2 >X - X/60.0 

0938 C 

0939 C IF ELAPSED TIME IS LESS THAN JSER i l f. : 7 .0 STA?T TIME, DO NOT 

0940 C PLOT OR ACCUMULATE THIS POINT. CO ' .EV! " CORD FROM DISK. 

0941 C 

0942 IFcX .LT. T I ME I >GO TO 340 

0943 C 

0944 C IF ELAPSED T1HF. IS .REATFR THAN THE USF« ELECTED 

0945 C STOP TIME. DO NOT PLOT OR ACCUMULATE TPI.- POINT. GO FINISH PLOT. 

0946 C 

0947 IF 1 X .GT. TlNE2>GO TO 370 

0948 C 

0949 C CONVERT ELAPSED TIME TO ELAPSED YtME FROM START OF PLOT. 

0930 C 

0931 X = X - TIME1 
0952 C 

0933 C MOVE PEN TO X-Y NORMALIZED COORDINATE WITHOUT DRAWING A LINE. 

0954 C THIS MOVES PEN TO FIRST X-Y POINT . 

0955 C 

0956 IF<IC .EQ. 1 >CALL MC* 1GCB.X.Y' 

0957 C 

0958 C DRAW A STRAIGHT LINE FROM PREVIOUS X-Y POINT TO CURRENT X-Y POINT 
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0959 

C 



0960 



CALL ORhkK ICC8, X V' 

0961 

c 



0962 

c 


INCREMENT ACCUMULATED POINT COUNTER BY ♦ !. 

096 3 

c 



0964 



IC * 10 ♦ 1 

0965 

c 



0966 

c 


ACCUMULATE THE SUM OF V i THE SuM OF Y SQUARED FOR LATER 

0967 

c 


STATISTICAL CALCULATION.'.. 

0968 

c 



0969 



SUM = SUM + Y 

097 0 



SUMSQ = SUMSQ + Y**2 

097 ’ 

c 



09 72 

c 


IF CURRENT Y VALUE IS GPEhTER THAN YMIN SO FDR, KEEP OLD MINIMUM 

0973 

c 


AND GO CHECK ON YMAX . 

0974 

c 



0975 



IF* r . i. ! . 2M I N ''GO TO 730 

09 ? 6 

c 



0977 

c 


UPDATE NEW Y MINIMUM. 

0978 

c 



09 79 



ZMIN = < 

0980 

c 



0981 

c 


UPDATE TIME AT IJHICH YMIN OCCURRED . 

0982 

c 



0903 



T I MEN - X 

0984 

c 



0985 


730 

COMTIHUF 

0986 

c 



098 7 

c 


IF CURRENT V VALUE IS LESS THAN YMAX SO FAR, KEE° OLD MAXIMUM 

0938 

c 


AMD GO READ NEXT PECOPD ON DISK. 

0989 

c 



0990 



IFvV . LT. ZMAX>GO TO 540 

0991 

c 



0992 

c 


UPDATE NEW YMAX. 

0993 

c 



0994 



ZrlAX = Y 

0995 

c 



0996 

c 


UPDATE T IME AT UHICH YMAX OCCURRED. 

0997 

c 



0993 



TIMEX’ = X 

0999 

c 



1 000 

c 


GO READ NEXT RECORD FROM DISK. 

1 001 

c 



1 002 



GO TO 540 

1 003 


740 

CONTINUE 

i 004 



GO TO ?4 0 

1 005 

c 



1 006 

c 



1 007 

c 


WRITE ERROR MESSAGE AMD TERMINATE PROGRAM PLOTM 

1 008 

c 



1 0C9 


730 

COMT 1NLIE 

1010 



UR 1 I E< LU, 760 > JCN, ICN 

101 1 


760 

FORMAT* " ERROR STOP DAT a DOES HOT CONFORM TO SPECIFICATION. H 

1012 



“ JCN. IfN * “,2It> 

053 



CALL EXEC! 6) 

5 014 

c 



1015 


770 

CONTINUE 

10(6 

c 



1 017 

c 


if plotting device, is m! hp 2647h graphics terminal, turn 

! 013 

c 


OFF THE GRAPHICS MODE AND Hi AN THE ALPHANUMERIC MODE BACK OH. 





* 




***~-^~* - 





IFv'ID .Ed. 1 >CALL NGRhFv LU2647 > 


1019 C 
1 02 0 
1 021 C 

1022 C UhNT Tu PLOT ANOTHER CHANNEL? 

1 02i C 

1024 KANS = IKY 

1025 WRITE' LU. 700 :• 

-* 7 € 0 FORMA ‘ . " DO YOU WISH TO PLOT ANOTHER CHANNEL 7 <t .... N>i > 

10^7 RCADf LU.200JKANS ” 

1C28 IF'KANS .EG. 1HN>CO TO 820 

102 9 C 

1 03 0 C SAME D I S*4 FILE* 

I 931 C 

1032 KANS = tHY 

1033 WRITER LU, 790 > 

1034 790 FOPMATC" SAME DISK FILE 7 <[YJ2N>: ) 

1033 REALM LU, 200 )KAMS 

I 036 C 

1037 C NO. DIFFERENT DISK FILE. GO BACK AND ENTER NEW DISK FILE NAME. 

1 038 C 

1079 IF^KhNS EG. :HN 'CO 10 100 

1 040 C 

1041 C SANE D K FIlE. REWIND IT BEFORE PROCEEDIN'! . 

* 042 C 

1043 CALL RWNPR IDl,9, IERR V 

1 044 C 

1045 C IF REWIND SUCCESSFUL CO PE4D HEADER RECORD. 

‘ 046 C 

1047 1F< IF.-PP CE 0>CO TO 800 

1 048 C 

1049 C ERROR ON REWIND TERMINATE PL01M. 

1 05 0 C 

1051 WRITEvLU. 690 >NAME, IERR 

1052 CALL EXEC<6> 

1 053 C 

1054 BOG CONTINUE 
1 055 C 

1 05 6 C READ HEADER RECORD IN ORDER TO POSITION DISK FILE AT FIRST RECORD 

1057 C OF DATA. 

1 058 C 

1059 CALL REhPFC IDCB, IERR. IBl/r, 84 > 

* 060 C 

•061 C IF RFADF SUCCESSFUL G GET USER INPUT AND START AGAIN! 

1 062 C 

1063 IK< IERR . CE. 0 >GO TO 220 

1 064 C 

5065 C ERROR ON READF , TERMINATE PLOTN. 

1066 r 

1067 WRITEC LU .550 -NANE, IERR 

1068 CALL EXEC< 6 ) 

1 069 C 

1070 £20 CONTINUE 

1 071 C 

1072 C PROGRAM PLOTM THRU » PLCTf WILL NOW GRACEFULLY EXIT* 

1 073 C 

1074 WPITE<;LU.630 > 

1075 830 FORMA T< " PROGRAM PLOTM TERMINATED. HAVE A COOD DAY! “ ) 

1 076 C 

1C77 C IF PLOT DEVICE IS HP 99729 4-COLOR TEN PLOTTER SI 3RE PEN IN HOLDER, 

1 0 5 8 >. THEN RAISE AND MOVE ’’EM TO UPPER-RIGHT HAND CORNER OF THE PLAT TEN. 
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1079 
1 030 
1 03 ) 
1 082 
1 083 
1 084 
1 085 
1 086 

1087 

1088 
1089 
1 090 

1091 

1092 

1093 

1094 
1 09 ' 

1 096 
1 097 

I 098 
1099 

I I 00 
1 1 01 
1 1 02 
1 1 03 
1 1 04 
1 1 05 
1 1 06 
1 1 07 
1 1 08 

I 1 09 
1110 

II 1 1 
1112 

1113 

1114 

1115 

1116 
1 1 17 
1 1 18 
1 1 19 
1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 
.136 

1137 

1138 


C 

IFUD .EQ. 2 >CALL PEN<IGCB,0> 

IF< ID .EQ. 2 )CALL PLOTR< IGCB, ID , 0 > 

C 

C RETURN TO RTE ! 

C 

CALL EXEC< 6 ) 

END 

P'.OCK DATA 
C 

C THIS ROUTINE DEFINES THE /CBLOC^, /DBLOC/, AND /'FLAGS/' LABELED 

C COMMON BLOCKS. 

C 

COMMON/CBLOC/I BCB2< 1 44 >, NAME2< 3 >, I TYPE< 6 , 32 > , GA IN< 32>,0FFS£T< 32 >, 
IUNITSC 10,32 >,YMINI< 32 >, YMAXI( 32), ICOMN< 10,32) 
COMMlWDBLOC.'IDCB< 1 44), NAME* 3 > 

COMMON/FLAGS/LU , KPLOT , IFLAG, TIME1 , TIME2 
DATA NAME2/2HTA, 2HBL, 2HEA/ 

END 

SUBROUTINE LA6LE< LAB 1 , LAB2 . NUM ) 

C 

C THIS ROUTINE MODIFIES ARRAY LABI BY ARRAY LAB2 . 

C IF LAB2 IS BLANK LABI = LABI 

C IF LAB2 HAS ! LABI * BLANK 

C OTHERWISE LABI * LAB2 

C 

DIMENSION LABKP, LAB2C 1 '> 

C 

DO 1 00 K* 1 , NUM 



IF<LA82< K ) 

.NE. 

2H 

) GO 

TO 

1 1 0 

100 

CONTINUE 







RETURN 






1 1 0 

I F( LAB2( 1 ) 

EQ. 

2H! 

) GO 

TO 

130 


DO 120 K=1 , NUM 
120 LAB KK) * LAB2< K ) 

RETURN 

130 DO 140 K= 1 , NUM 
140 LAB 1 < K ) = 2H 
RETURN 
END 

SUBROUTINE BOUND< JCN , YMIN , YMAX > 


THIS ROUTINE DETERMINES THE Y-AXIS BOUNDS < YMIN 1 YMAX > FOR 
CHANNEL JCN. THIS ROUTINE IS CALLED WHEN THE USER SPECIFIES 
THAT THE Y-AXIS IS TO BE AUTOSCALED. 

IN ADDITION, THE SEARCH FOR YMIN t, YMAX IS ONLY CONDUCTED OVER 
THE TIME FRAME SELECTED BY THE USER AS THE TIME FRAME FOR THE 
PLOT. 

DIMENSION IBUF< 1 0 0 > 

COMMON/CBLOC/IDCB2< 1 44 >, NAME2< 3 ), ITYPE< 6, 32 >, GAIN< 32 >,OFFSET< 32 >, 
IUNITS< 10,32), YMINK 32), YMAXK32), ICOHNC 1 0,32) 
COMMON/DBLOC/IDCB< 144),NAME<3> 

COMNON/FLAGS/LU, KPLOT, IFLAG, TIME1 , TIME2 
INTEGER RANGE 

WRITE THE USER A MESSAGE OH THE USER TERMINAL INFORMING HIM 
THAT AUTOSCALING TAKES A LITTLE LONGER THAN PLOTTING WITHOUT 

96 C - X. 



AUTOSCnUNG. 


139 C 

140 C 

141 WRITECLU. 1 00 > 

142 100 FORMAT< "PATIENCE* AUTOSCALING Y ARRAY VAKES TIME.") 

143 C 

144 C INITIALIZE YMAX AND YMIN TO EXTREMELY SMALL AND LARGE VALUES, 

145 C RESPECTIVELY. 

146 C 

147 YMAX = -1 . OE+37 

148 YMIN = +1 . OE+37 

149 C 

150 C REWIND THE DISK FILE AND READ THE HEADER RECORD TO POSITION THE 

151 C DISK FILE TO THE FIRST DATA RECORD. 

152 C 

153 CALL RUNDF(IDCB) 

154 CALL READFC IDCB, IERR, IBUF,84 > 

155 IF< IERR .GE. 0 >GC TO 120 

156 URITE<LU, 1 1 0 >NAME, IERR 

157 110 FORMAT< " ERROR STOP. BOUND READF ERROR. FILE ",3A2,“. IERR -“,16) 

158 CALL EXEC< 6 > 

159 C 

160 C BEGIN READING LOOP. READ UNTIL AN END OF FILE IS REACHED OR UNTIL 

161 C THE STOP TIME IS CALCULATED. 

162 C 

163 120 CONTINUE 

164 CALL REAOFt IDCB, IERR, IBUF, 84, ILEN) 

165 IF< IERR .GE. 0)CO TO 130 

166 WRITE<LU, 1 10 >NAME , IERR 

167 CALL EXEC< 6 ) 

168 130 CONTINUE 

169 C 

170 C END OF FILE REACHED. CO CLEAN UP THIS PROGRAM < REWIND DISK) AND 

171 C RETURN TO PLOTM. 

172 C 

173 IFCILEN .LT. 0 )GO TO 170 

174 C 

175 C COMPUTATIONAL LOOP SIHILIAR TO ONE IN PLOTM. 

176 C IBUF IS UNPACKED TO DETERMINE X(TIME) AND Y< VOLTAGE OR ENG. UNIT) 

177 C VALUES AND YMIN t YMAX ARE CALCULATED. 

178 C ONLY REAL DIFFERENCE IN THIS CODE IS THAT X-Y PAIRS ARE NOT 

179 C PLOTTED. 

180 C 

181 DO 140 KK » 9,77,4 

182 I HR » 1 0* I AND< IBUF< 5 >, 36 OB >/1 6 ♦ IANDC IBUF(S), 17B) 

183 I M IN « 1 0*IAND< I8UFC 6 ), 3608 )/1 6 ♦ I AND< IBUF< 6 >, 1 7B ) 

124 ISEC » 10*IAND< IBUF< 7 ), 3608 )/16 ♦ I AND< IBUF< 7 >, 1 78 ) 

185 X » FLOATC IHR)*3600. ♦ FLOATC IMIN)*60. 0 ♦ FLOATUSEC) 

186 IFvIFLAG . EQ . 2 )X - X/60.0 

187 C 

169 C START TIME NOT YET REACHED. GO READ ANOTHER RECORD. 

189 C 

190 IFCX .LT. TIME1 >CO TO 120 

191 C 

192 C STOP TIME REACHED. CLEAN UP AND RETURN TO PLOTM. 

1 93 0 

194 IF< X .CT. TIME2 )GO TO 170 

195 C 

196 I WORD 1 • I8UF<KK> 

197 IWORD2 » IBUF<KK*1) 

198 1U0RD3 - IBUF< KK+2 ) 

97 



1 1 99 



IW0RD4 • IBUF< KK+3 > 


1200 



IFCIWORD1 EG. 0 .AND. IU0RD2 . EQ . 0 .AND. IW0RD3 

.EQ. 0 

1201 



.AND. 1 WORD 4 .EG. 0 )CO TO 150 


12 02 

C 




1203 



ICN «= IAND< IW0RD1 ,77B> 


1204 



IF< ICN .GT. JCN >GO TO 120 


1205 



IF( ICN NE. JCN )GO TO 140 


1206 

C 




120? 



1 D f » IANDUU0RD1 ,3008 >/64 


1208 



ID2 • I ANO< I W0RD2 , 36 08 >/1 6 


1209 



ID3 = IAND( IW0RD2, 178) 


1210 



ID4 - I ANDC I WORD 3 , 36 OB >/ 1 6 


1211 



IDS • IANDC IU0RD3, 178) 


1212 

C 




1213 



ISIGN « IANDC IU0RD4 . 2008 VI 29 


1214 



IF<. ISIGN .EQ. 0 ) IS IGN • -1 


1215 



RANGE = IhNDC IUORD4 ,1008 >/64 


1216 



Y » FLOAT* ID1 > ♦ FLOAT< ID2)*0. 1 ♦ FLOAT< ID3 >*0 . 01 


1217 



♦ FLOAT< ID4 )*0 . 001 + FLOAT< 1D5>* 0.0001 


1218 



IR RANGE .EQ. 1 )V = 3.9999 


1219 



Y * ISIGN*Y 


1220 



IF* KPLOT .EQ. 2 )Y » GAIN* JCN+1 >*Y ♦ OFFSET< JCN+1 ) 


1221 

C 




1222 



YMIN «= AMIN1< YMIN, Y > 


1223 



YMAX ■ AMAXK YMAX.Y ) 


1224 

C 




1225 

C 


GO READ NEXT RECORD. 


1226 

C 




1227 



GO TO 120 


1228 


140 

CONTINUE 


1229 



GO TO 120 


1230 

C 




1231 

C 


WRITE ERROR MESSAGE AND TERMINATE PLOTN . 


1232 

C 




1233 


150 

CONTINUE 


1234 



WRI TE< LU . 1 60 > JCN , ICN 


1235 


160 

FORMATS ERROR STOP. OATA DOES NOT CONFORM TO SPECIFICATION. 

1236 



“ JCN, ICN « " , 216 > 


1237 



CALL EXEC< 6 ) 


1238 

C 




1239 


170 

CONTINUE 


1240 

C 




1241 

C 


BEFORE RETURNING TO PLOTM , REWIND DISK FILE AND 

READ HEADER 

1242 

C 


RECORD IN ORDER TO POSITION DISK FILE AT FIRST DATA RECORD. 

1243 

c 




1244 



CALL RUNDFCIDCB) 


1245 



CALL READF* IDCB, IERR, IBUF , 84 ) 


124b 



IF< IERR .GE. 0 )GO TO 160 


1247 



WR I TE< LU . 1 1 0 > 


1248 



CALL EXEC< 6 ) 


1249 


180 

CONTINUE 


1250 

c 




1251 



RETURN 


1252 



END 


1253 



SUBROUTINE GRAf<LU2647> 


1254 

c 




1255 

c 


THIS ROUTINE INITIALIZES THE GRAPHIC NODE OH A 

2647A AND 

1256 

c 


TURNS OFF THE ALPHANUHERIC DISPLAY 


1257 

c 




1258 

(*Y 




98 



1299 

1260 

1261 

1262 

1263 

1264 
1269 
1266 
126? 
1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 
1289 


100 FORMAT * "*.$£+dacF M ) 

110 FORMAT* 1 H .30*/)) 

<*Z 

WRITE* LU2647 , 1 00 > 

WR HE* LU2647 , 110) 

RETURN 

END 

SUBROUTINE HCOPV* LU2647 ) 

C 

C THIS ROUTINE MAKES A HARDCOPY OF A 2647A SCREEN 

C 

CfcY 

100 FORMAT <"£*,p4u5C"> 

ciz 

IF* LU2647 .NE. 1 )RETURN 
C WRITE * LU2647, 1 00) 

C110 CALL WAIT* 12,2) 

READ* LU2647, #) ICO 

RETURN 

END 

SUBROUTINE NCRAF < LU2647 ) 

C 

C THIS ROUTINE TERMINATES GRAPHICS NODE ON A 2647A AND TURNS 

C SACK ON THE ALPHANUMERIC DISPLAY 

C 

C^Y 

1 00 FORMAT < “^♦ddE" ) 

C^Z 

WRITE * LU2647 , 100) 

RETURN 

END 


99 



#DL TBL T = 0 0 0 03 IS ON CROOOt5 USING 00004 BLKS R=0000 
OOOt ASMS , R, L , F 

0002 HED < GRAPHICS/1 00 0 DEVICE LINK TABLE — 01/24/81 > 

0003 NAM DLTBL.7 GRAPHICS/1000 DEVICE LINK TABLE — 01/24/81 

0004 ENT DPTR 

0005 EXT DVG01 , DCT01 

0006 EXT DVG04.DCT04 

0007 EXT DVG02 , DCT 02 

0008 * 

0009 * 

0010 * WRITTEN BY ARCHIE JORDAN ON MARCH 29, 1979 

0011 * LAST MODIFIED ON JANUARY 24, 1981 

0012 * 

0013 * 

0014 * THIS ROUTINE PROVIDES EXTERNALS FOR THE DEVICE SUBROUTINES <DVCXX> 

0015 * AND THE DEVICE COMMAND TABLES <DCTXXT. THESE EXTERNAL REFERENCES 

0016 * WILL ALLOW THESE MODULES TO BE LINKED FROM THE CPS RELOCATABLE 

0017 * LIBRARY < XGPSLB > . 

0018 * 

001 V * 


002 l 

DPTR 

DEC 

6 

TWICE 

THE 

LARGEST 

ID NUMBER 

0021 

0022 

* 

DEF 

DVG01 

ID = 1 

FOR 

THE 

HP 

2648A 

GRAPHICS 

0023 


DEF 

DCT01 

TERMINAL 





0024 

0025 

* 

DEF 

DVG02 

ID = 2 

FOR 

THE 

HP 

9872A 

4-COLOR PLOTTER 

0026 


DEF 

DCT 02 







0027 

0028 

% 

DEF 

DVG04 

ID = 4 

FOR 

THE 

HP 

2608A 

PRINTER 

0029 

0030 

* 

DEF 

DCT 04 







0031 

0032 

* 

END 









100 



tDUNPM T-00003 IS ON CR00013 USING 00038 BLKS R-0000 


ooot 

FTN4,L 


0002 



PROGRAM DUMPM 

0003 

C 



0004 

Cl 

!«•«! 


0003 

C 



0006 

C 


PROGRAM OUMPM IS A UTILITY PROGRAM FOR LISTING DATA FILES 

0007 

c 


GENERATED BY PROGRAM READM IN ONE OF THREE FORMATS » 

0008 

C 


1 . OCTAL FORMAT 

0009 

c 


2. STATISTICAL FORMAT 

OOf 0 

c 


3, TOTAL ( BLOCK BY BLOCK DUMP) FORMAT 

001 1 

c 


SUBROUTINES OOUMP, SDUMP, AND CDUMP ARE CALLED TO GENERATE THE 

0012 

c 


RESPECTIVE DUMP FORMATS. 

0013 

c 



0014 

c 



0013 

c 


DEVELOPED BY ESPEE INC 

0016 

c 


EXECUTIVE PLA2A 

0017 

c 


SUITE 305 

0018 

c 


205/837-8585 

0019 

c 



0020 

c 



0021 

Cl 

•Ml 


0022 

c 



0023 

c 



0024 



COMMON. '’BLOC A/ 1 DCB< 272 >, NAME< 3 >, LU, NREC 

0023 



DIMENSION IBUF< 2 00 > 

0026 

c 



0027 

c 


GET LU OF USER CONSOLE. 

0028 

c 



0029 



CALL RMPAR< IBUF > 

0030 



LU * IBUF< 1 ) 

0031 



I F< LU .LT . 1 >LU » 1 

0032 



LP » 6 

0033 

c 



0034 



URITE<LU, 1 00 > 

0035 


100 

FORMATv ) 

0036 

c 



0037 

c 


ENTER FILE NAME OF FILE TO DUMP. 

0038 

c 



0039 



WRITE< LU . 1 1 0 > 

0040 


110 

FORMATS H ENTER FILENAME OF FILE TO DUMPi > 

0041 



READ( LU, 120 )NAME 

0042 


120 

F0RMATC3A2) 

0043 

c 



0044 

c 


ENTER NUMBER OF RECOROS TO READ 6 DUMP. 

0043 

c 



0046 



WR I TEC LU , 1 30 > 

0047 


130 

FORMAT< " ENTER NO. RECORDS TO READi _" > 

0048 



READ( LU, * >NREC 

0049 

c 



0030 

c 


DEFAULT DUMP TYPE IS 2 < STATISTICAL > . 

0051 

c 



0032 



I TYPE « 2 

0033 

c 



0034 

c 


SELECT DUMP TYPE. 

0035 

c 



0036 



WRITE<LU, 1 40 > 

0037 


140 

FORMAT< " SELECT TYPE DUMP <1-OCTAL, C2-$TATJSTICS1, 3-T0TAL>l J* > 

0038 



READ<LU,*)ITYPE 


101 



0059 

c 



0060 



GO TOt 150, 160,170), ITYPE 

0061 

c 



0062 


150 

CALL ODUMP 

0063 



CALL EXEC<6> 

0064 

c 



0065 


(60 

CALL SDUMP 

0066 



CALL EXEC< 6 ) 

0067 

c 



0068 


170 

CALL CDUMP 

0069 



CALL EXECC6) 

0070 

c 



0071 



END 

0072 



BLOCK DATA 

0073 

c 



0074 

c 


BLOCK DaTA SUBROUTINE DEFINES COMMON BLOCK XBLOCA/ . 

0075 

c 



0076 



COMMON/BLOCA/ IDCB< 272 >,NAME< 3 >, LU , NREC 

0077 



END 

0070 



SUBROUTINE ODUMP 

0079 

c 



0080 

c 



0081 

c 


SUBROUTINE ODUMP DUMPS A FILE GENERATED BY READM 

0082 

c 


AND SELECTED BY THE USER IN OCTAL FORMAT. 

0083 

c 



0084 



C0MM0N7BL0CA/IDCB< 272 >, NAME< 3 ), LU, NREC 

0085 



DIMENSION IBUF< 200 > 

0086 

c 



0087 



LP * 6 

0088 

c 



0089 



CALL OPEN< IDCB, I ERR, NAME) 

0090 



IF< I ERR .GE. 0)GO TO 1 1 0 

0091 



UR!TE< LU, 1 00 >NAME, IERR 

0092 


100 

FORMAT< * ERROR STOP. OPEN ERROR ON FILE ",3A2,“ IERR ■ ",16) 

0093 



CALL EXECv 6 ) 

0094 


110 

CONTINUE 

0095 

c 



0096 



DO 170 K - 1 , NREC 

0097 



CALL READFUDCB, IERR, IBUF, 100, ILEN) 

0098 



IF< IERR GE. 0 >GO TO 130 

0099 



WRITER LU.. 120 >IERR, NAME 

0100 


120 

FORMATS ERROR STOP. READF ERROR ON FILE ",3A2, a IERR - *,I6> 

0101 



CALL EXEC< 6 ) 

0102 


110 

IF< ILEN .GE. 0 )GO TO 150 

0103 



URt TC( LU, 140 >tLKN 

0104 


140 

P0RNAT< M ERROR BTOP. PRENATUTRE END OR RILE. ILEN • MU 

0105 



CALL tXtC< 6 ) 

0106 


190 

CONTINUE 

0107 



WRITE<LP, 140 >K,t IRUF< 1 >, 1*1 ,84) 

0108 


160 

FORMAT* IN , I8A 1 X , 1 008 > ) 

0109 


170 

CONTINUE 

0110 

c 



0111 



CALL CLOSE(tDCI) 

01 12 



CALL EXEC< 6 > 

0113 



RETURN 

01 14 



END 

0113 



SUBROUTINE CDUMP 

01 16 

c 



0117 

c 


SUBROUTINE CDUMP DUMPS A FILE GENERATED CV RtADM AND 

! 0118 

c 


SELECTED BY TNI U8IR IN A COMPLETE BLOCK BY BLOCK, CHANNEL 

** or 



ioa 



0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 
0133 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0130 

0131 

0132 

0133 

0134 
0153 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 
0173 

0176 

0177 

0178 


C BY CHANNEL VOLTAGE DUMP. 

C 

COMMON /BLOC A/ I DCB( 272 ) , NAME< 3 ) , LU , NREC 
DIMENSION IBUF< 200 > 

C 

LP = 6 
C 

CALL OPEN< IDCB , IERR , NAME > 

IF< IERR .GE. 0 )GO TO 110 
WR I TE< LU , 1 00 >NAME, IERR 

100 FORMAT< " ERROR STOP. OPEN ERROR ON FILE ",3A2,“ IERR - *,I6) 
r ALL EXECC6) 

1 1 0 CONTINUE 
C 

IC = 1 

DO 230 K = 1 , NREC 

CALL READFC IDCB, IERR, IBUF, 1 00, ILEN > 

IF< IERR GE. O )GO TO 130 
WR I TEC LU , 120)1 ERR , NAME 

120 FORMAT<" ERROR STOP. READF ERROR ON FILE ",3A2," IERR • “,I6> 
CALL EXECi'6) 

130 IF< ILEN GE. O >GO TO 130 
WRITE< LU . 1 40 )ILEN 

140 FORMAT< “ ERROR STOP. PREMATUTRE END OF FILE. ILEN • “,I6> 

CALL EXEC< 6 ) 

150 CONTINUE 
C 

IF< K .EQ. 1 >WRITE<LP, 160>NAME, IBUF< 1 ), IBUF<3>, IBUF<2>, IBUF<4>, 
< IBUF«f MM >, NM^S , 1 1 > 

160 FORMAT< 1 HI , " THE HEADER RECORD FOR FILE ",3A2,“ SHOWS i “,// 

. " SEQUENCE NO. * ",I2,/ 

• DATE « “, 12,"/“, 12,“/ ,12,/ 

" START TIME « " , 12, " » " , 12, ■ I " , 12,/ 

" STOP TIME » ",I2,“i“,I2,"i“,I2,/ 

“ NO. CHANNELS » ",I2> 


IF< K .EQ. 1 >GO TO 230 

NSEQ * 1 0*IAND< IBUF< 1 >,360B>/16 ♦ IAND< IBUF< 1 >, 1 7B ) 

IFt K .EQ. 2)JSEQ-N$EQ 

IF< NSEQ .HE. JSEQ >GO TO 240 

IDAY * 1 0*IAND< IBUF<2>,360B>/16 ♦ I AND< IBUF< 2 >, 1 76 > 
IMON * 1 Q*IAND< IBUF<3>,360B>/16 ♦ I AND< IBUF< 3 ), 1 7B > 

I YEAR * 1 0*IAND< IBUF<4),360B>/16 * IAND< IBUF<4), 17B) 
IHR - 1 0*1 AND< IBUF< 5 >, 360B )/1 6 ♦ IAND< I8UF<5>, 17B) 
IMIN > 1 0*IAND< IBUF<6),3608)/16 ♦ IAND< IBUF< 6 ), t 7B > 
ISEC - 1 0*IANO< IBUF<?>,360B>/16 * IAND< IBUF< 7 ), 1 7B > 
IF< IC .EQ. 1 >WRITE<LP, 170) 

170 FORNAT< 1H1 ) 

IK « K-1 

WRITE<LP, 180MK.NSEQ, IDAY , IMON , I YEAR , IHR , IMIN, ISEC 
180 FORMATC1X , • BLOCK NUMBER “,13/ 

IX, “ SEQUENCE NO. “,13/ 


IX, “ DAY 

“,13/ 

IX, " MONTH 

“,15/ 

IX, “ YEAR 

“,13/ 

IX, “ HOUR 

“,13/ 

IX, “ MINUTE 

“,13/ 

IX, “ SECOND 

“ , 15// 

IX," CHANNEL NO. 

VOLTAGE “/> 

200 KK ■ 9,77,4 

103 



0179 

0130 

Old! 

0182 

0183 

0184 

0185 

0186 
0187 
0183 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 
02 05 
9206 

0207 

0208 
02 09 
0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 
v233 

0234 

0235 

0236 

0237 

0238 


IU0RD1 » IBUFOOO 
IW0RD2 » IBUF< KK+ 1 > 

IU0RD3 ■ I BUF< KK+2 > 

IW0RD4 « I BUF< KK+3 > 

I FC 1 MOPP. 1 EG. 0 , BHD , IW0RB2 . EQ . 0 .AND. IU0RD3 .EO. 0 .AND. 

. IW0RD4 .EQ. 0 >G0 TO 21 u 
ICN * I ANC'C tUORDI , 77B ) 

I D 1 * IAND< I WORD 1 , 300B V64 
102 = IANDMUORD2,360B >/16 
ID3 = IANDC IU0RD2, 1 7B ) 

ID4 = IANDC IU0RD3, 36 06 >/1 6 
IDS = IAND( IW0RD3, 17B) 

I S ICN * I AND< I W0R04 ,20 08 )/' 1 28 
IF< ISIGN .EQ. 0 1ISIGN - -1 

VOLTS « FLOATCID1) ♦ FLOATc 1D2 >*0 . 1 ♦ FL0AT< ID3 >*0 . 01 
♦FLOAT< ID4 >*0. Ol'l ♦ FLOATC IDS >*0 . 0001 
VOLTS » I S I GN*VOLTS 
UR I TE< LP , 1 90 >ICN, VOLTS 
190 FQRMATOX, I3,5X,F12.5> 

200 CONTINUE 
21 0 CONTINUE 
C 

IC * IC ♦ 1 
I F < IC .GT. 2>IC - 1 
I Fc 1C .EQ. 1 >CO TO 230 
URI TE< LP .220 > 

220 FORMAT< /// ) 

230 CONTINUE 
C 

240 CONTINUE 

CALL CLPSEC IDCB ) 

CALL EXEC<.s> 

RETURN 

END 

SUBROUTINE SDUMP 
C 

C SUBROUTINE SDUMP DUMPS a FILE GENERATED BY PROGRAM READM AND 
C SELECTED BY THE USER IN A STATISTICAL SUMMARY FORMAT INCLUDING 
C THE MEAN. VARIANCE, L STANDARD DEVIATION < VOLTAGE) FOR EACH 

C CHANNEL RECORDED FOR THE SELECTED DATA FILE. 

C 

COMMON /BLOCA.'IDCB< 272 ) . NAME< 3 ), LU, NREC 
DIMENSION I8UF( 200 > 

DIMENSION SUH( 32 > , SUHSQC 32 ) , YM I N< 32 > , YMAX< 32 > , ET !HA< 32 ) , ET IMB< 32 ) 
INTEGER T IMA< 3,32), TIM8< 3,32), IC<32> 

INTEGER RANGE 
C 

LP » 6 
C 

DO 110 I • 1,32 
ICv I > « 0 
SUM< I > » 0.0 
SUMSQ< I ) = 0.0 
YMIN< I > « 1 . OE+37 
YMAX< I ) » -1 . OE+37 
ETIMA< I ) * 0.0 
ETIM8< I > * 0.0 
00 100 J * 1,3 
TIMA< J , I > » 0 
TIMB< J, I ) » 0 
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0239 

0240 

0241 

0242 

0243 

0244 
0243 

0246 

0247 

0248 

0249 
0230 
0251 

0232 

0233 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 
0263 
0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 
0273 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 
029! 

0292 

0293 

0294 

0295 

0296 

0297 

0298 


C 

c 


c 

c 


1 OC CONTINUE 
1 i C CONTINUE 


CALL OPEN< IDCB, I ERR, NAME > 

I F < IERR .GE, 0 )G0 TO t3C 
URITE<LU. 120 >NAME, IERR 

120 FORMATC " ERROR STOP. OPEN ERROR ON FILE ",3A2," IERR ■ ",I6> 
CALL EXECC6) 

130 CONTINUE 


DO 200 K = 1 , NREC 

CALL READF(. IDCB , IERR, IBU C , 1 00, ILEN ) 

IF( IERR GE. 0 )GO TO 150 
UR I TE< LU, 140 HERR, NAME 

140 FORMATC " ERROR STOP. READF ERROR ON FILE •,3A2,- IERR - M6> 
CALL EXEC< 6 > 

150 IF< ILEN ,CE. 0 >GO TO 160 
GO TO 210 
160 CONTINUE 

IF(, K .EO, 1 )URITE<LP, T70 >NAME, IBUF< 1 ), I8UF<3>, IBUF<2>, IBUF<4>, 


170 FORMAT': 1 H 1 


( 1BUF< MM >, MM^3 , 1 1 > 

' THE HEADER RECORD FOR FILE “,3A2," SHOWSi " ,7/ 


IF< K 
IF'. K 


.EO. 

.EQ. 


" SEQUENCE NO. ■ 

" DATE 
" START TIME 
" STOP TIME 
■ NO. CHANNELS - " 

1 >MAXCN « IBUF< 1 I >♦! 

1 )TSTART - FLOAT< IBUF< 5 ) >*3600 . 

♦ FLOATC IBUF<7>> 


12,7 
12, V 

12, " i 
12, * i 

12,77/7) 


M2, "7“ , 12,7 
M2,“iM2,7 

" , 12, " i " , 12, / 


♦ FLOAT< IBUF<6))*6 0. 


I F< K .EO. 1 >G0 TO 200 

NSEQ = 1 0*IAND< IBUF< 1 >,360B>/16 ♦ IAND< IBUF< 1 >, 1 7B ) 

IF<.K .EO. 2>JSEQ»NSEQ 
IF<NSEQ .NE. JSEQ )CO TO 210 

IDAY ■ 1 0*IAND< IBUF< 2), 3608)716 * I AND< IBUF< 2 >, 1 78 ) 

IMON * 1 0*IAND< IBUF<3), 3608)716 ♦ I AND< IBUF< 3 >, 1 7B ) 

1 YEAR « 1 0* I AND< IBUF( 4 >, 3608 >71 6 ♦ I AND< I BUF < 4 ) , 1 78 > 

IHR » 1 0«IAND< 1BUF(3),360B)716 ♦ I AND< I8UF< 3 ), 1 78 ) 

IMIN » 1 0*IAND< IBUF<6),360B>/16 ♦ IAND< IBUF< 6 ), 17B ) 

I SEC * 1 0*IAND< IBUFC 7 >, 3608)716 ♦ I AND< IBUF< 7 >, 1 78 > 

DC 190 KK - 9,77,4 
IUORD1 - IBUF<KK> 

IU0RD2 ■ IBUFOOOI) 

IUORD3 « IBUF< KK + 2 ) 

IU0RD4 « IBUF<KK+3) 

IF( I WORD 1 .EQ. 0 AND. IU0RD2 .EQ. 0 . AHD. IU0R03 .EQ. 0 .AND. 
. IU0RD4 EQ. 0 >GO TO 200 
ICN > IANDt IU0RD1 ,77B) 


ID 1 « I AND ( I UORD 1 • 3 0 08 >764 
ID2 • IAND< I UORD 2 3608 >716 
ID3 * IAND< IU0RD2, 17B) 

ID4 > IAND< IUORD3, 3608 >716 
ID5 a IANO< IW0RD3, 1 78) 

ISIGN a IAN0( IU0RD4, 2008 >7128 
IF< ISIGN .EO. 0 ) ISIGN - >1 

VOLTS • FLOAKID1) ♦ FLOAT< ID2 >*0.1 ♦ FLOAT< ID3 >«0 . 01 
♦ FLOAT< ID4 >*0 . 001 ♦ FLOAT* ID5 >*0. 0001 
RANGE ■ IANDC IU0RD4, 1008)764 
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0299 

C300 

0301 

0302 

0303 
030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 


I F < RANGE ,EQ. 1 )V0LTS ■ 3.9999 

VOLTS - ISIGN+VOLTS 

II ■ ICN + 1 

ICC I 2 > - ICC 1 1 > ♦ 1 

SUH( II > - SUN< II > ♦ VOLTS 

SUMSQ< 1 1 > - SUMSQ'II) ♦ V0LTS**2 

IF< VOLTS .GT. YHIN< II) )C0 TO 180 

YMIN< 1 1 > ■ VOLTS 

TIMA< 1 , 1 1 > - I HR 

TIHA<2, II ) • ININ 

T I NA< 3,11 > - ISEC 

ETIMA<II> - FLOAT< IHR>*3600. ♦ FL0AT< IHIN>*60 - it; T< ISEC) 
180 CONTINUE 

IF< VOLTS .LT YNAX< II) )C0 TO 190 

YNAX< 1 1 > » VOLTS 

TIHB( 1,11) » I HR 

TIN8( 2, 1 1 > - iniN 

TIMB< 3,11) - ISEC 

ET!MB< II > • FLOAT< I HR >*3600 . ♦ FLOAT< ININ)*60. ♦ FLOAKISEC) 
190 CONTINUE 
200 CONTINUE 

210 CONTINUE 

CALL CLOSE* IDCB) 

WRITE* LP , 220 > 

220 F0RMAT<4X,*CN" / 8X, "MEAN" , 8X, "VAR . " , 6X, “STD . DEV . “ , 

8X, “ YNIN" ,6X , "T IHE" , 6X, *ET1H< HIN )" , 1 OX, "YHAX" , 

6X, “TIME", 6X,-ETIH< MIN >" ) 

DO 240 I > 1 , HAXCN 
IK - 1-1 

AN * FLOAT< IC< I )) 

YMCAN ■ SUM* I )/AH 

WAR - < AN*SUHSQ< I > - SUN* I >+*2 >/< AN*< AN- 1.0)) 

YSTD - 0.0 

IF* YVAR .GE. 0.0)YSTD - SQRT< YVAR > 

ETINACI) » < ETINA< I > - TSTART >760 . 0 
FTIMB*I> * < ET IHB* I > - TSTART >/60 . 

HRITE< LP,230)1K, YMEAN. YVAR, YSTD, YNIN* I >,< TINA* K, I >,K-1 ,3>, 
ETIHA< I >,VHAX< 1 ), < TIMB* K, I > , K»1 , 3 >, ETIHB* I > 

230 FORMAT* IX, 15, 3F1 2 . 3, 5X, F 1 0 . 3. 4X, 12, " i ■ , 12, “ I " , 12, 4X,F8 . 3, 5X, 
F 1 0 . 3 , 4X , 1 2 , ** t " , 1 2 , “i",I2,4X,F8.3) 

240 CONTINUE 

CALL EXEC< 6 ) 

RETURN 

END 
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APPENDIX B 

RANT. HR FILE LISTINGS 

READM$ 

$ REA DM 
CFIGM$ 

$ C F I GM 
PLOTM$ 

$ PLOTM 
DUMPM$ 

$ DUMPM 
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READM* T-00004 IS ON CR00015 USING 00002 BLKS P-3713 


0001 i OFF, REAM, 8 

0002 i RU, FTN4 , liREAOM : : 37 1 , 7.READK i i 37 

0003 i RU , FTN4 , ftWAI T : i 37, 1 ,XUAIT i . 37 

0004 i RU, A3HB, RRTAPE t i37. 1 ,XRTAPEi i 37 
0003 iRU, ASNB, iCTAPE i i37, 1 .JiCTAPEi i 37 

0006 i RU, LOADR, fREADM 

0007 iTR 
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fREADN T-00004 IS ON CR00015 USING 00001 BLKS R-5713 


0001 

ECHO 


0002 

re,;:readm: 

: 37 

0003 

RE >2 WAIT i » 37 

0004 

RE,7.RTAPE: 

: 37 

0005 

RE ,5£CTAPE : 

: 37 

0006 

END 
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CFIGM* T-00004 IS ON CR00015 USING 00002 BLKS R-5713 
0001 iOFF , CFIGM, 8 

00 02 i RU , FTN4 , fcCF I GM , 1 ,7.CFIGMi i 37 
00 03 I RU , FTN4 , 8.CNF IG , 1 ,XCNFlGi : 37 

0004 i RU , LO hDR , *CF IGH 

0005 iTR 
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♦CFICM T-00004 IS ON CR00015 USING 00001 BLKS R-3713 


0001 

ECHO 


0002 

RE.XCFICNs 

: 37 

0003 

RE,XCMFICt 

i 37 

0004 

END 
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PL07M* T-00004 IS ON CR00015 USING 00001 BLKS R*5713 


0001 i OFF , PLOTM , 8 

0002 s RU , FTH4 , &PLOTM , 1 , XPLOTM ; : 37 

0003 iru,lohi>k:, *plo rn 

0004 iTR 
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fPLOTH 7 "0 00 04 IS ON CR00013 USING 00002 BLKS R-5713 

OOOt ECHO 

0002 OP, LB 

0003 RE.XPLOTMi :37 

0004 RE , XWA IT i ! 37 

0005 RE -XOLTBL : : 37 

0006 SEH , XGPS4 0 

0007 END 


1 
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DUMPN* T-00004 IS ON CP00015 USING 00002 BLKS R*5713 


0001 i OFF , DUKPM . 0 

00 02 sRU,FTN4.«<DunPM. 1 , JiDUNPM : : 37 

0003 i RU, LOrtPR . fOUMPfl 

0004 i TR 


i 

s 


i 


i 
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SDUP1PM T-00004 IS ON CR00015 USING 00002 BLKS R-3713 

0001 ECHO 

0002 RE.XDUtlPM: 37 

0003 END 
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APPENDIX C 

SAMPLE CONFIGURATION FILE 


PRECEDING page blank not filmed 
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CONFIGURATION TAOLC FOR FILE TmBLEh 


z 

* 

s 


oooooooooooooooooooooooooooooooo 

aiina.Q.aKULa.a.Q.aa.a.a.a.CLQ.a&a.a.a.a.aa.a.&.a&A. 

NNN^NNNr-NNNNrvNKNKKKKNKNKNKNNNNKN 

i xa't x t it 

(A(AtfMA^ 9 M 0 ^IA«<AVMO 0 <ftW<A<AV>(AV)tO«)«MAW 0 MA<A<IHAa) 


XZXXIIIIIXIITIXIIIIIIXIXIIXIIITI 


oooooooooooooooooooooooooooooooo 
X oooooooooooooooooooooooooooooooo 

t OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

x 

> OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

mr>r>mr>ininr>inr>ir>r>r>inintnr)r>r»ininior>r>inmr>ininr>r>irv 


OOOOOOOOOOOoOOOOOOOOOOOOOOOOOOOO 
X 0000000000*0 0 0000000000000000000 3 
*— OOOOOOOOOOOOOOOOOOOOOOOOOoOOOOOO 

r 

> OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

«^mr)|f>rir)inirMr‘inri , MorMf>rio«ioinir>ioinr. v^^norrMn 

i ( i i t i < t • t i t « i i i i t t i i i i t i t i ( i < t t 


A, A A A ^ ^ A - * -\ 

OOUOOCIOOOOOUUUOOOOUOOUUOOOOOOOOU 


gjouujoooooijooouoooooojuotj^ojooj 

aSAAoodaASoodAoaoooSodAOAgoiiAgoo 

W WVVVVVN'VVVVv VVWVVVVVVWVV vv V V V V V 

m MUiUllteWUiUUiUiUiUiUJUlUilMlAiUlUlUiUiWUlUiUilliUiblUUlUIWUi 

5 SiSSiiS!!SSII!SSi!!!!S!SS!S$S!S! 






MUWiwWUUUMWWUUUMWWI 



H" ©••••©•••©©•©••©•©••©©©©•o©©©©©© 

M ©©•0«©0©©©©0©00©*00©9«000000000© 
P ••©©O©O©©©©©©©O©«OO©O 0 ©©OOOOO©O© 

Ik 

^ O«eoooooooooooooco*o©oogoooocooc 


• •©•0©900©©000©©0©»000©90000©00© 

X ©©ooo©e«©©o©©»©o©e©©eoooeooooo©o 
m ©©©ooooooo©oe«©©©o©©cooo © e ooocoo 

S ••©«©•©•©•©•*©••©©© OOOOOOeOOO©©© 



© ~ Pin 9 P^KPP 
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APPENDIX D 
Sample Plots 

P-1 2647A Plots 
D-2 9372B Plots 
D-3 2608A Plots 



nit MH IS TtSTIl NfiX. t VW.UC IS .§3 KflW 01 

SEQUENCE MO. IS 33 XCUWIMC OT : 83. *7 HIM. SI. MV 








(SlilWIH) 9111 





neon or 

ST. KV. 















(S2UMIM) Uli 





TIME (HIMUTES) 
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— 

a 

rj 





i . 


/ 1 


in 
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a: 


a_ 




- 

c; 


\ 

IJ 
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e: 
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IV 
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— 

*— 
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u 
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APPENDIX E 

Sample Output From DUMPM 

E-l Octal Dump 
E-2 Statistical Dump 
Total Dump 


131 



1 

000041 
00001 7 
000 000 
000000 
000000 
000000 
000000 
oooooo 
000000 
2 

000063 

oooooo 

000003 

oooooo 
00001 0 
oooooo 
0001 15 

oooooo 

000015 

3 

000063 

OOOOOO 

000003 

OOOOOO 

000010 

000060 

000115 

000050 

000015 

4 

000063 
000002 
000003 
000002 
0001 1 0 
000023 
0001 IS 
000144 
000015 

5 

000063 
000003 
000003 
000003 
0001 10 
000171 
000115 
000067 
000015 

6 

000063 
000004 
000003 
1)00004 
0001 1 0 
O00031 
0001 15 
000024 
000015 


000035 

OOOOOO 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

000051 
000200 
0001 1 1 
000200 
oooooo 
000200 
000040 
000200 
000012 

000051 
000200 
0001 1 1 
000200 
000124 
000200 
000042 
000200 
000012 

000051 
000200 
0001 1 1 
000200 
000001 
000200 
000044 
000200 
000012 

000051 
000200 
0001 1 1 
000200 
000064 
000200 
000044 
000200 
000012 

000051 
000200 
0001 1 1 
000200 
0001 1 1 
000200 
000044 
000200 
000012 


0 0 0 0 1 2 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 o o 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

000020 
0001 01 
000020 
0001 06 
oooooo 

000313 

oooooo 

oooooo 

oooooo 

000020 
000201 
000020 
0001 06 
0001 1 1 
000313 
000121 
oooooo 
oooooo 

000020 
000201 
000020 
0001 06 
000123 
000313 
0 0006 5 
OOOOOO 
OOOOOO 

000020 
000201 
000021 
0001 06 
000161 
000313 
000231 
OOOOOO 
OOOOOO 

000020 
0001 01 
000022 
0001 06 
0001 07 
000313 
000050 
OOOOOO 
OOOOOO 


0 0012 0 
OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

000200 

000111 

oooooo 

000165 

000200 

000231 

000200 

oooooo 

oooooo 

000200 

000040 

oooooo 

000165 

000200 

000231 

000200 

OOOOOO 

OOOOOO 

000200 
0001 1 1 
OOOOOO 
000165 
000200 
000231 
000200 
OOOOOO 
OOOOOO 

000200 

000045 

OOOOOO 

000165 

000200 

000231 

000200 

OOOOOO 

OOOOOO 

000200 
0001 1 1 
OOOOOO 
000165 
000200 
000231 
000200 
OOOOOO 
OOOOOO 


0 00 01 3 
0 0 0 0 0 0 
OOOOOO 
OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 


000021 
000231 
000004 
000124 
00001 1 
000230 
0001 16 
OOOOOO 


000021 
000066 
000004 
000124 
00001 1 
000230 
0001 16 
OOOOOO 


000021 
000147 
000004 
000124 
0001 1 1 
000230 
0001 16 
OOOOOO 


000021 
000226 
000004 
000124 
0001 1 1 
000230 
0001 16 
OOOOOO 


000021 
00014b 
000004 
000124 
00001 1 
000230 
0 Out 1 6 
OOOOOO 


000045 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

OOOOOO 

OOOOOO 


000067 

000200 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000040 

oooooo 


000067 

000200 

000026 

oooooo 

000162 

OOOOOO 

000044 

OOOOOO 


000067 

000200 

000061 

OOOOOO 

000024 

OOOOOO 

000047 

OOOOOO 


000067 
000200 
0001 04 
OOOOOO 
000030 
OOOOOO 
000051 
OOOOOO 


000070 

000200 

000127 

OOOOOO 

000221 

OOOOOO 

000051 

OOOOOO 


000005 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


000005 

000002 

oooooo 

000007 

oooooo 

000314 

oooooo 

oooooo 


000041 

000002 

000124 

000007 

000223 

000314 

000047 

OOOOOO 


C00067 
000002 
0001 1 1 
000107 
000001 
000314 
000142 
OOOOOO 


000123 

000002 

000225 

000107 

000122 

000314 

000064 

OOOOOO 


00001 1 
000002 
000004 
0001 07 
000222 
000314 
000020 
OOOCOO 


000015 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 


OOOOOO 

000120 

000200 

OOOOOO 

000200 

000231 

000200 

oooooo 


oooooo 
0001 1 1 
000200 
000200 
000200 
000231 
000200 
OOOOOO 


oooooo 
0001 1 1 
000200 
000071 
000200 
000231 
000200 
OOOOOO 


OOOOOO 
0001 1 1 
000200 
000131 
000200 
000231 
000200 
OOOOOO 


OOOOOO 
0001 1 1 
000200 
000067 
000200 
000231 
000200 
oooooo 
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OOOOOO 

000041 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

000005 

OMOOO 

oooooo 

000200 

000012 

oooooo 

000230 

000200 

000017 

oooooo 

oooooo 

oooooo 


oooooo 

OOOOOO 

000224 

OOOOOO 

000005 

OOOOOO 

000140 

000200 

000012 

0001 1 1 

000230 

000200 

000017 

000004 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

000210 

oooooo 

000005 

oooooo 

000046 

000200 

000012 

000203 

000230 

000200 

000017 

000007 

oooooo 

oooooo 

oooooo 

oooooo 

1)00202 

oooooo 

000005 

oooooo 

000230 

000200 

000012 

000231 

000230 

000200 

000017 

000011 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

000166 

oooooo 

000005 

oooooo 

000023 

000200 

000112 

oooooo 

000230 

000200 

000017 

000011 

OOOOOO 

oooooo 


7 


00006? 

000051 

000004 

000200 

00000? 

0001 1 1 

000004 

000200 

0001 1 0 

0001 03 

000042 

000200 

0001 15 

000042 

0000 4 1 

000200 

000015 

000012 

8 

00006? 

000051 

000006 

000200 

00000? 

0001 1 1 

000006 

000200 

0001 1 0 

000030 

00000? 

000200 

0001 15 

000031 

000165 

000200 

000015 

000012 

9 

000063 

000051 

000006 

000200 

000003 

0001 1 1 

000006 

000200 

000010 

000167 

000043 

000200 

000115 

000027 

000007 

000000 

000015 

000012 

1 0 

000063 

000051 

000010 

000200 

000003 

0001 1 1 

00001 0 

000200 

00001 0 

000044 

000042 

000200 

000115 

000025 

000122 

000000 

000015 

000012 

1 1 

000063 

000051 

00001 1 

000200 

000003 

000111 

00001 1 

000200 

000010 

000060 

000070 

000000 

000115 

000025 

00021 0 

000000 

000015 

000012 

12 

000063 

000051 

000020 

000200 

000003 

0001 1 1 

000020 

000200 

000010 

000201 

000006 

000000 

000115 

000025 

000165 

000000 

000015 

000012 


000020 
000001 
000023 
000106 
000201 
000313 
0 0 01 0 0 
000000 
000000 

000020 
000001 
000025 
0001 06 
000120 
000313 
000206 
000000 
000000 

000020 
000201 
000027 
0001 06 
000000 
000313 
000066 
000000 
000000 

000020 
000201 
000031 
0001 06 
000227 
000313 
000130 
000000 
000000 

000020 
000301 
000042 
0001 06 
0001 OS 
000313 
000000 
000000 
000000 

000020 
000201 
00004S 
0001 06 
000163 
000313 
000170 
000000 
000000 


000200 

000064 

000000 

000165 

000200 

000231 

000200 

000000 

000000 

000200 

000226 

000000 

000165 

000200 

000231 

000200 

000000 

000000 

000200 

000022 

000000 

000165 

000200 

000231 

000200 

000000 

000000 

000200 
00021 1 
OOOOOU 
000165 
000200 
00C231 
000200 
000000 
000000 

000200 

000006 

000000 

000165 

000000 

000231 

000200 

000000 

000000 

000200 

000140 

000000 

000165 

000000 

000231 

000200 

000000 

000000 


000021 
000060 
000004 
000124 
00001 1 
000230 
0 001 16 
OOCOOO 


000021 
000030 
000004 
000124 
00001 1 
000230 
000116 
000000 


000021 
000225 
000004 
000124 
00001 1 
000230 
000116 
000000 


000021 
000031 
000004 
000124 
00001 1 
000230 
000116 
000000 


000021 
000164 
0001 04 
000124 
00001 1 
000230 
000116 
000000 


000021 
000150 
000104 
000124 
00001 1 
000230 
000116 
000000 


000070 
000200 
000147 
000000 
0001 06 
000000 
000047 
000000 


000070 

000000 

000167 

OOOCOO 

000002 

000000 

000043 

000000 


000070 
000000 
000206 
000000 
0001 01 
000000 
000031 
000000 


000071 

000000 

000223 

000000 

000143 

000000 

000026 

000000 


000071 

000000 

000000 

000000 

000145 

000000 

000024 

000000 


000071 
000000 
000006 
000000 
0001 11 
000000 
000023 
000000 


000045 

000002 

000204 

000007 

000146 

000314 

000004 

000000 


000101 
000002 
0001 1 1 
000007 
000061 
000314 
000151 
000000 


000127 
000002 
00001 1 
000007 
000202 
000314 
000205 
000000 


000023 
000002 
000170 
0001 07 
0001 1 0 
000314 
000071 
000000 


000051 

000002 

000150 

000107 

000000 

000314 

000002 

000000 


000105 

000002 

000221 

000107 

000(43 

000314 

000024 

000000 


000000 
0001 1 1 
000200 
000166 
000200 
000231 
000200 
000000 


000000 

000111 

000200 

000004 

000000 

000231 

000200 

000000 


000000 
0001 1 1 
000200 
000204 
000000 
000231 
000200 
000000 


000000 
0001 1 1 
000200 
0001 01 
000000 
000231 
000200 
000000 


000000 

000111 

000200 

000131 

000000 

000231 

000200 

000000 


000000 
00011 1 
000200 
000064 
000000 
000231 
000200 
000000 


000003 

000161 

000005 

000223 

000012 

000230 

000017 

000000 


000000 

000145 

000005 

000042 

000012 

000230 

000017 

000000 


000000 

000140 

000005 

000042 

000012 

000230 

000017 

000000 


000000 

000124 

000005 

000051 

000012 

000230 

000017 

000000 


000000 
00011 1 
000005 
000207 
000012 
000230 
000017 
000000 


000000 

000104 

000005 

000221 

000012 

000230 

000017 

000000 


000000 

000000 

000000 

000200 

000207 

000200 

000007 

000000 


000000 

000000 

000000 

000000 

000145 

000200 

000003 

000000 


000000 

000000 

000000 

000000 

000070 

000200 

000000 

000000 


000000 

000000 

000000 

000000 

000021 

000200 

000003 

000000 


000000 

000000 

000000 

000000 

000022 

000200 

000005 

000000 


000000 

000000 

000000 

000000 

000060 

000200 

000006 

000000 
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000063 000051 00002U 000200 000021 000100 000001 000000 000000 

000021 000200 000101 000M0 000151 000000 000002 0001 1 1 000071 

000003 000111 000u5u 000000 000104 000022 000131 000200 000005 

000021 000200 000106 000165 000124 000000 000007 000163 000040 

000110 000041 000204 000000 000011 000044 000066 000000 000012 

000125 000000 000313 000231 000230 000000 000314 000231 000230 

0001 15 000027 000161 000200 0001 lb 000023 000170 000200 000017 

000020 000000 000000 000000 000000 000000 000000 000000 000000 

000015 000012 000000 000000 

1 4 

000063 000051 000020 000200 000021 000100 000027 000000 000000 

000021 000200 000001 000050 000200 000000 000002 000111 000065 

000003 000111 000061 000000 000104 000027 000202 000200 000005 

000021 000200 000106 000165 000124 000000 000007 000010 000104 

000110 000105 000060 000000 000011 000002 000124 000200 000012 

000166 000000 000313 000231 00023U 000000 000314 000231 000230 

000115 000040 000046 000200 000116 000025 000127 OOv^OO 000017 

000060 000000 000000 000000 000000 000000 000000 000000 000000 

000 015 000012 0 0 i C 0 000 00 0 

15 

000063 000051 000020 000200 000021 000100 000063 000000 000000 

000023 000200 000101 000005 000207 000200 000002 000111 000060 

000003 000111 000064 000000 000104 000042 000147 000200 000005 

000023 000200 000106 000165 000124 000000 000007 000207 0U0171 

000110 000110 000220 000000 000011 000047 000222 000200 000012 

000130 000000 000313 000231 000230 000000 006314 000231 000230 

000115 000042 000164 000200 000116 000027 000224 000200 000017 

000222 000000 000000 000000 000000 000000 000000 000000 000000 

000015 000012 000000 000000 

000063 000051 000020 000200 000021 000100 000111 000000 000000 

000023 000200 000201 000024 000026 000200 000002 000111 000046 

00000"* 0001 1 1 000070 000000 0001 04 000047 000031 000200 000005 

000023 000200 000106 000165 000124 000000 000107 000103 000042 

0001 1 0 000062 000026 000000 000011 *>00065 000061 000200 000012 

000131 000000 000313 000231 000230 000000 000314 000231 000230 

000115 000044 000107 000200 000116 000040 000041 000200 000017 

000065 000200 000000 000000 000000 000000 000000 000000 000000 

000015 000012 000000 000000 

00006^ 000051 000020 000200 000021 000101 000005 000000 000000 

000025 C00200 000201 000163 000165 000200 000002 000111 000042 

00000"* 0001 1 1 0001 02 000000 0001 04 000061 0001 01 000200 000005 

000025 000200 000106 000165 000124 000000 000107 000131 000143 

000010 000227 000066 000000 000011 000065 000142 000200 000012 

000162 000000 000313 000231 000230 000000 000314 000231 000230 

00011S 000044 000230 000200 000116 000041 000204 000200 000017 

000231 000200 030000 000000 300000 000000 000000 000000 000000 

000015 000012 090000 000000 

1 6 

000063 000051 000020 000200 000021 000101 000041 000000 000000 

000025 000200 000201 000164 000047 000200 000002 000111 000031 

000003 000111 000106 000000 000104 000065 000064 000200 000005 

000025 000200 000106 000165 000124 000000 000107 000062 000131 

000010 000111 000045 000000 000011 000046 000167 000200 000012 

000224 000000 000313 000231 000230 000000 000314 000231 000230 

000115 000044 000024 000200 000116 000042 000125 000200 000017 

000161 000200 000000 000000 000000 000000 OOOOCO 000000 000000 

000015 000012 000000 0l>0000 

i:u 


000000 
000000 
000000 
000000 
0001 00 
000200 
000006 
000000 


000000 
000000 
000000 
000200 
0001 03 
000200 
000004 
000000 


000000 
000000 
oooooo 
000200 
0001 00 
000200 
000001 
oooooo 


oooooo 

oooooo 

oooooo 

000200 

000062 

000200 

oooooo 

oooooo 


oooooo 

oooooo 

oooooo 

000200 

000041 

000200 

000001 

oooooo 


oooooo 

oooooo 

OOOOOO 
000200 
00001 1 
000200 
000002 
oooooo 



i 


19 

000063 000051 G00020 000200 000021 000101 000067 f 0000 000000 000000 

000027 000200 000201 0C0031 000061 000200 000002 000111 000025 000000 

000003 000111 000121 000000 000104 000070 000230 000200 000005 000000 

000027 000200 000106 000163 000124 000000 000007 000151 000102 000200 

000010 000005 000127 000200 000011 000022 000150 000200 000012 000001 

000001 000200 000313 000231 000230 000000 000314 000231 000230 000200 j 

000115 000042 000026 000200 000116 000042 000064 000200 000017 000002 j 

000121 C00200 000000 000000 000000 000000 000000 000000 000000 000000 ; 

000015 000012 000000 000000 

20 

000063 000051 000020 000200 000021 000101 000123 000000 OOOOOO 000000 

000030 000200 000101 000044 000227 000200 000002 000111 000022 OOOOOO 

000003 000111 000125 OOOOOO 000104 000102 000051 000200 000005 OOOOOO 

000030 000200 000106 000165 000124 OOOOOO 00*007 000022 000145 OOOOOO 

000010 000131 000144 000200 000011 000002 000011 OOOOOO 000012 000011 

000205 000200 OuO?13 000231 000230 OOOOOO 000314 000231 000230 000200 

000115 000031 000140 000200 000116 000041 000122 000200 000017 000001 

000160 000200 OOOOOO OOOOOO OOOOOO OOOOOO OOOOOO OOOOOO OOOOOO OOOOOO 

000015 000012 OOOOOO OOOOOO 
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THE HEADER RECORD FOR FILE TEST 01 SHOWS; 

SEQUENCE NO. = 33 
DATE = 10/29/80 

START ’IME = 1 1 ; 37 : 5 
STOP TIME = 13: 0:33 
NO, CHANNELS = 15 
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BLOCK HUMBER 

1 

SEQUENCE NO. 

33 

DAY 

29 

MONTH 

1 0 

YEAR 

30 

HOUR 

t 1 

MINUTE 

37 

SECOND 

5 

CHANNEL NO. 

''OLTAGE 


0 

000000 

1 

1 . 49990 

2 

-.50000 

3 

-.49100 

4 

0. 00000 

5 

0. 00000 

6 

- 1 . 75540 

7 

0.00000 

8 

0. 00000 

9 

0. 00000 

1 0 

0.00000 

t 1 

- 3 . 99990 

12 

3 , 99990 

13 

1.20000 

14 

1 . 20000 

15 

0 . 00000 


BLOCK NUMBER 

2 

SEQUENCE NO. 

33 

DAY 

29 

MONTH 

1 0 

YEAR 

80 

HOUR 

1 1 

MINUTE 

37 

SECOND 

21 

CHANNEL NO. 

VOLTAGE 

0 

0. 00000 

1 

2.20360 

2 

-.49940 

3 

-.49100 

4 

. 16340 

5 

0. 00000 

6 

-1 . 73540 

7 

.80600 

8 

.54490 

9 

.72930 

1 0 

.49300 

1 1 

-3.99980 

12 

3.99980 

13 

1 .2251 0 

14 

1 .24270 

15 

. 04280 


v- ■ 





THE HEADER RECORD FOR FILE TE9T02 SHOiJ> : 

SEQUENCE NO. ■ 77 
DATE m 1 0/30/80 

START -IME - 1 3 : 1: 2 
STOP TIME ■ 14:55:39 
NO. CHANNELS = 30 
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OOVfRNMtNT PHINTINU Of riCf 


|<MII >40 066/33 » HI ('.ION NO 



BLOCK NUMBER 19 
SEQUENCE NO. 77 
DAY 30 
MONTH 1 0 
YEAR SO 
HOUR 1 3 
MINUTE 4 
SECOND 29 


CHANNEL NO. VOLTAGE 


0 

1 

2 

3 

4 

5 

6 
7 

8 
9 
10 
1 1 
12 

13 

14 

15 

16 
17 


. 00130 
1 . 64940 
- . 49200 
- . 49360 
1 . 249,’u 

. 00130 
-1 . 75540 
1 . 19650 
-1 . 42990 
.31010 
- . 37 07 0 
-3 . 99980 
3 . 99990 
1 . 23730 
1.19120 
- . 00730 
1 . 23600 
. 1 1 260 


BLOCK NUMBER 20 
SEQUENCE NO. 77 
DAY 30 
MONTH I 0 
YEAR SO 
HOUR 1 3 
MINUTE 4 
SECOND 29 


CHANNEL NO. VOLTAGE 


10 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


. 11260 
. 02920 
.55550 
0. 00000 
-.50050 
. 84400 
.21880 
.22210 
.44440 
.88880 
1 -60000 
-1 . 60000 
-.88880 



